Centrar

Rotar cierto ángulo

Reflejar en la tercera dirección

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

Reflejar en la quinta dirección

Reflejar en la sexta dirección

xQ = 8.36 (slider from 2.26 to 20, step 0.01)
yQ = 0.7000000000000001
A0 = (-1.52, 2.159999999999999)
B02: ((-0.38), y(A0))
B01: ((-0.65), y(A0))
B0 = Point(Segment[B01, B02])
J: A0 + (0, (sqrt(3) * x(B0 - A0)))
CRot: J
A = (7.46, -1.5800000000000012)
Q: Corner[pincel, 1] + (0.05, 0)
B: A + B0 - A0
u = Vector(A, B)
u1: (2 * u)
CRot': CRot + A - A0
v1 = Vector(A + A0 - B0, CRot')
z: v1 - u1
k = 3 (slider from 0 to 20, step 1)
e = Ray(A0, Rotate[A0 + (1, 0), 0.7137243789447656, A0])
L = Point(e)
M = Point(e)
centrar = false
yT = -0.08
xT = 7.46 (slider from 1.72 to 20, step 0.1)
TT0: (xT, yT)
C: A + J - A0
QR = Mirror(Q, Line[CRot', A])
v = Vector(A, C)
yR = 1.279999999999999
xR = 8.24 (slider from 2.3 to 20, step 0.1)
R0: (xR, yR)
F = Rotate(A0 + A0 - B0, 240°, B0)
C1: B + F - B0
J4: A0 + A0 - B0
J2: F + CRot - 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.9400000000000001 (slider from -1.4 to -0.9, step 0.01)
yGoma = -1.92 (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, s, t, a_1 = Polygon(A0, B0, J)
texto2: "Ángulo rotado = " + β
celda', g, h, i = Polygon(F, J2, J)
D: (A + B + C) / 3 - (0, 0.2)
P' = If(β > 0, Rotate[CRot', β, R], R)
T1: (xQ, yQ)
celda'', f, m, r = Polygon(A0, CRot, A0 - u)
C3: A + J3 - A0
cis2 = Rotate(cis1, 60°, CRot')
C4: A + J4 - A0
cis4 = Rotate(cis1, 180°, CRot')
F2 = Mirror(A0, CRot)
hayAxiales = true
listaCRot2 = Sequence(Sequence[Translate[B, Vector[(s * u1) + (t * v1)]], s, (-k), k], t, (-k), k)
listaP1 = Sequence(Sequence[Q + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaCRotUni = Join(listaCRot2)
listaP2 = Sequence(Sequence[QR + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaP3 = Sequence(Sequence[Rotate[Q, 60°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
polígono1, b_1, c_1, d_1 = Polygon(J, J2, J3)
cis3 = Rotate(cis1, 120°, CRot')
cis7 = Mirror(cis1, Line[A + v, A])
cis8 = Rotate(cis7, 60°, CRot')
cis9 = Rotate(cis7, 120°, CRot')
cis10 = Rotate(cis7, 180°, CRot')
listaP4 = Sequence(Sequence[Rotate[QR, 60°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
T = If(centrar, CRot', TT0)
w = Vector(CRot', T)
a1 = Segment(T - (2 * u1), T + (2 * u1))
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])
polígono2, n, p, q = Polygon(B0, F, CRot)
a0 = Segment(T + (3 * v), T - (3 * v))
listaCRotT: {Rotate[T - v, β, R]}
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, 120°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaP6 = Sequence(Sequence[Rotate[QR, 120°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaP7 = Sequence(Sequence[Rotate[Q, 180°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaP8 = Sequence(Sequence[Rotate[QR, 180°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaCRotTH: {Mirror[T - v, a1]}
reflejoK = false
a3 = Segment(T + (2 * v1), T - (2 * v1))
listaCRotTK: {Mirror[T - v, a3]}
l = Segment(CRot, A0)
cis5 = Rotate(cis1, 240°, CRot')
cis6 = Rotate(cis1, 300°, CRot')
cis11 = Rotate(cis7, 240°, CRot')
cis12 = Rotate(cis7, 300°, CRot')
cis09 = Translate(cis9, Vector[A, A0])
cis010 = Translate(cis10, Vector[A, A0])
cis011 = Translate(cis11, Vector[A, A0])
cis012 = Translate(cis12, Vector[A, A0])
cis07 = Translate(cis7, Vector[A, A0])
cis05 = Translate(cis5, Vector[A, A0])
cis06 = Translate(cis6, Vector[A, A0])
cis08 = Translate(cis8, Vector[A, A0])
listaCRot2C = Sequence(Sequence[Translate[CRot' - v, Vector[(s * (u1 + v1)) + (t * (z - u1))]], s, (-k), k], t, (-k), k)
lista1 = Sequence(Sequence[Segment[A - u + ((3 * s) * u1) + ((t * 2) * v), B + ((3 * s) * u1) + ((t * 2) * v)], s, (-k), k], t, (-k), k)
lista1b = Sequence(Sequence[Segment[B + v1 + u1 + ((3 * s) * u1) + ((t * 2) * v), B + v1 + ((3 * s) * u1) + ((t * 2) * v)], s, (-k), k], t, (-k), k)
lista2 = Sequence(Sequence[Segment[CRot' - u1 + ((3 * s) * v1) + (t * (u1 - z)), CRot' + z + ((3 * s) * v1) + (t * (u1 - z))], s, (-k), k], t, (-k), k)
lista2b = Sequence(Sequence[Segment[CRot' + (2 * v1) + ((3 * s) * v1) + (t * (u1 - z)), CRot' + v1 + ((3 * s) * v1) + (t * (u1 - z))], s, (-k), k], t, (-k), k)
lista3 = Sequence(Sequence[Segment[A - u + ((3 * s) * z) + (t * (v1 + u1)), A - u + z + ((3 * s) * z) + (t * (v1 + u1))], s, (-k), k], t, (-k), k)
lista3b = Sequence(Sequence[Segment[B + (2 * z) + ((3 * s) * z) + (t * (u1 + v1)), B + (3 * z) + ((3 * s) * z) + (t * (u1 + v1))], s, (-k), k], t, (-k), k)
patron: {Polygon[B, B + v1, B + v1 + z, B + (2 * z), B + (2 * z) - v1, B - u1]}
listaCisne1 = Sequence(Sequence[Translate[cis1, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne2 = Sequence(Sequence[Translate[cis2, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne3 = Sequence(Sequence[Translate[cis3, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne4 = Sequence(Sequence[Translate[cis4, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne5 = Sequence(Sequence[Translate[cis5, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne6 = Sequence(Sequence[Translate[cis6, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne7 = Sequence(Sequence[Translate[cis7, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne8 = Sequence(Sequence[Translate[cis8, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne9 = Sequence(Sequence[Translate[cis9, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne10 = Sequence(Sequence[Translate[cis10, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne11 = Sequence(Sequence[Translate[cis11, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
listaCisne12 = Sequence(Sequence[Translate[cis12, Vector[((3 * s) * u1) - (t * (u1 - z))]], s, (-(k + 1)), k + 1], t, (-(k + 1)), (2 * k))
polígono3, j, j_1, j3 = Polygon(J, J3, J4 + z)
polígono4, e_1, j_2, j4 = Polygon(J, J4, J4 + z)
listaCRotC: {B + (0, 0)}
listaCRot: {CRot' - v}
listaCRotCTH: {Mirror[T + u - v, a1]}
listaCRotCTK: {Mirror[T + u - v, a3]}
listaCRotB: {CRot' + (0, 0)}
listaCRotBT: {Rotate[T, β, R]}
vectoresT1: {Vector[T1 - (v1 + u1) / 2, T1 + (v1 + u1) / 2], Vector[T1 + (v1 + u1) / 2, T1 - (v1 + u1) / 2], Vector[T1 - (z - u1) / 2, T1 + (z - u1) / 2], Vector[T1 + (z - u1) / 2, T1 - (z - u1) / 2], Polygon[T1 - (v1 + u1) / 2 - (z - u1) / 2, T1 - (v1 + u1) / 2 + (z - u1) / 2, T1 + (v1 + u1) / 2 + (z - u1) / 2, T1 + (v1 + u1) / 2 - (z - u1) / 2]}
baseCopia: {Polygon[Rotate[T - (2 * v1), β, R], Rotate[T - (2 * v1) - z, β, R], Rotate[T - (2 * v1) - z + u1, β, R], Rotate[T - (2 * z), β, R], Rotate[T - (2 * z) + u1, β, R], Rotate[T - (2 * z) + u1 + v1, β, R], Rotate[T + (2 * u1), β, R], Rotate[T + (2 * u1) + v1, β, R], Rotate[T + (2 * u1) + v1 + z, β, R], Rotate[T + (2 * v1), β, R], Rotate[T + (2 * v1) + z, β, R], Rotate[T + (2 * v1) + z - u1, β, R], Rotate[T + (2 * z), β, R], Rotate[T + (2 * z) - u1, β, R], Rotate[T + (2 * z) - u1 - v1, β, R], Rotate[T - (2 * u1), β, R], Rotate[T - (2 * u1) - v1, β, R], Rotate[T - (2 * u1) - v1 - z, β, R]]}
listaCisne1C: {Rotate[Translate[cis1, w], β, R], Rotate[Translate[cis1, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis1, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis1, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis1, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis1, Vector[w - z + u1]], β, R], Rotate[Translate[cis1, Vector[w + z - u1]], β, R]}
listaCisne2C: {Rotate[Translate[cis2, w], β, R], Rotate[Translate[cis2, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis2, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis2, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis2, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis2, Vector[w - z + u1]], β, R], Rotate[Translate[cis2, Vector[w + z - u1]], β, R]}
listaCisne3C: {Rotate[Translate[cis3, w], β, R], Rotate[Translate[cis3, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis3, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis3, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis3, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis3, Vector[w - z + u1]], β, R], Rotate[Translate[cis3, Vector[w + z - u1]], β, R]}
listaCisne4C: {Rotate[Translate[cis4, w], β, R], Rotate[Translate[cis4, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis4, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis4, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis4, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis4, Vector[w - z + u1]], β, R], Rotate[Translate[cis4, Vector[w + z - u1]], β, R]}
listaCisne5C: {Rotate[Translate[cis5, w], β, R], Rotate[Translate[cis5, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis5, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis5, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis5, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis5, Vector[w - z + u1]], β, R], Rotate[Translate[cis5, Vector[w + z - u1]], β, R]}
listaCisne6C: {Rotate[Translate[cis6, w], β, R], Rotate[Translate[cis6, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis6, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis6, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis6, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis6, Vector[w - z + u1]], β, R], Rotate[Translate[cis6, Vector[w + z - u1]], β, R]}
listaCisne7C: {Rotate[Translate[cis7, w], β, R], Rotate[Translate[cis7, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis7, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis7, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis7, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis7, Vector[w - z + u1]], β, R], Rotate[Translate[cis7, Vector[w + z - u1]], β, R]}
listaCisne8C: {Rotate[Translate[cis8, w], β, R], Rotate[Translate[cis8, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis8, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis8, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis8, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis8, Vector[w - z + u1]], β, R], Rotate[Translate[cis8, Vector[w + z - u1]], β, R]}
listaCisne9C: {Rotate[Translate[cis9, w], β, R], Rotate[Translate[cis9, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis9, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis9, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis9, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis9, Vector[w - z + u1]], β, R], Rotate[Translate[cis9, Vector[w + z - u1]], β, R]}
listaCisne10C: {Rotate[Translate[cis10, w], β, R], Rotate[Translate[cis10, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis10, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis10, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis10, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis10, Vector[w - z + u1]], β, R], Rotate[Translate[cis10, Vector[w + z - u1]], β, R]}
listaCisne11C: {Rotate[Translate[cis11, w], β, R], Rotate[Translate[cis11, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis11, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis11, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis11, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis11, Vector[w - z + u1]], β, R], Rotate[Translate[cis11, Vector[w + z - u1]], β, R]}
listaCisne12C: {Rotate[Translate[cis12, w], β, R], Rotate[Translate[cis12, Vector[w - (2 * v)]], β, R], Rotate[Translate[cis12, Vector[w + (2 * v)]], β, R], Rotate[Translate[cis12, Vector[w + v1 + u1]], β, R], Rotate[Translate[cis12, Vector[w - v1 - u1]], β, R], Rotate[Translate[cis12, Vector[w - z + u1]], β, R], Rotate[Translate[cis12, Vector[w + z - u1]], β, R]}
a2 = Segment(Rotate[T + (2 * z), β, R], Rotate[T - (2 * z), β, R])
reflejo5 = false
reflejo6 = false
a4 = Segment(T + (2 * z) - u1 - v1 / 2, T - (2 * z) + u1 + v1 / 2)
a5 = Segment(T + (2 * v1) + u1 - z / 2, T - (2 * v1) - u1 + z / 2)
listaCRotCT5: {Mirror[T + u - v, a4]}
listaCRotCT6: {Mirror[T + u - v, a5]}
listaCRotT5: {Mirror[T - v, a4]}
listaCRotT6: {Mirror[T - v, a5]}
listaCRotCT: {Rotate[T + u - v, β, R]}
listaCRotCTD: {T + u - v}
listaCRotTD: {Mirror[T - v, a2]}
listaP10 = Sequence(Sequence[Rotate[QR, 240°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaP12 = Sequence(Sequence[Rotate[QR, 300°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaP9 = Sequence(Sequence[Rotate[Q, 240°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
listaP11 = Sequence(Sequence[Rotate[Q, 300°, R] + (s * (u1 + v1)) - (t * (u1 - z)), s, (-k), k + 1], t, (-(k + 1)), k)
A49: (2 * A48) - A47
A50: (2 * A49) - A48
A51: (2 * A50) - A49
A52: (2 * A51) - A50
A53: (2 * A52) - A51
A54: (2 * A53) - A52
A55: (2 * A54) - A53
A56: (2 * A55) - A54
A57: (2 * A56) - A55
A58: (2 * A57) - A56
A59: (2 * A58) - A57
A60: (2 * A59) - A58
A61: (2 * A60) - A59
B1 = Element(Element[listaP1, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
B2 = Element(Element[listaP1, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
B3 = Element(Element[listaP1, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
B4 = Element(Element[listaP1, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
B5 = Element(Element[listaP1, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
B6 = Element(Element[listaP1, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
B7 = Element(Element[listaP1, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
B8 = Element(Element[listaP1, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
B9 = Element(Element[listaP1, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
B10 = Element(Element[listaP1, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
B11 = Element(Element[listaP1, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
B12 = Element(Element[listaP1, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
B13 = Element(Element[listaP1, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
B14 = Element(Element[listaP1, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
B15 = Element(Element[listaP1, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
B16 = Element(Element[listaP1, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
B17 = Element(Element[listaP1, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
B18 = Element(Element[listaP1, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
B19 = Element(Element[listaP1, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
B20 = Element(Element[listaP1, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
B21 = Element(Element[listaP1, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
B22 = Element(Element[listaP1, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
B23 = Element(Element[listaP1, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
B24 = Element(Element[listaP1, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
B25 = Element(Element[listaP1, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
B26 = Element(Element[listaP1, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
B27 = Element(Element[listaP1, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
B28 = Element(Element[listaP1, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
B29 = Element(Element[listaP1, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
B30 = Element(Element[listaP1, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
B31 = Element(Element[listaP1, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
B32 = Element(Element[listaP1, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
B33 = Element(Element[listaP1, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
B34 = Element(Element[listaP1, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
B35 = Element(Element[listaP1, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
B36 = Element(Element[listaP1, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
B37 = Element(Element[listaP1, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
B38 = Element(Element[listaP1, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
B39 = Element(Element[listaP1, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
B40 = Element(Element[listaP1, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
B41 = Element(Element[listaP1, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
B42 = Element(Element[listaP1, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
B43 = Element(Element[listaP1, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
B44 = Element(Element[listaP1, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
B45 = Element(Element[listaP1, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
B46 = Element(Element[listaP1, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
B47 = Element(Element[listaP1, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
B48 = Element(Element[listaP1, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
B49 = Element(Element[listaP1, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
B50 = Element(Element[listaP1, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
B51 = Element(Element[listaP1, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
B52 = Element(Element[listaP1, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
B53 = Element(Element[listaP1, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
B54 = Element(Element[listaP1, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
B55 = Element(Element[listaP1, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
B56 = Element(Element[listaP1, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
B57 = Element(Element[listaP1, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
B58 = Element(Element[listaP1, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
B59 = Element(Element[listaP1, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
B60 = Element(Element[listaP1, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
B61 = Element(Element[listaP1, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
A62: (2 * A61) - A60
A63: (2 * A62) - A61
B62 = Element(Element[listaP1, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
B63 = Element(Element[listaP1, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
D1 = Element(Element[listaP2, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
E1 = Element(Element[listaP3, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
G1 = Element(Element[listaP4, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
H1 = Element(Element[listaP5, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
I1 = Element(Element[listaP6, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
K1 = Element(Element[listaP7, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
L1 = Element(Element[listaP8, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
M1 = Element(Element[listaP9, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
N1 = Element(Element[listaP10, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
O1 = Element(Element[listaP11, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
P1 = Element(Element[listaP12, 1 + Div[A1, (2 * k) + 2]], 1 + Mod[A1, (2 * k) + 2])
K2 = Element(Element[listaP7, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
L2 = Element(Element[listaP8, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
M2 = Element(Element[listaP9, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
N2 = Element(Element[listaP10, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
O2 = Element(Element[listaP11, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
P2 = Element(Element[listaP12, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
K3 = Element(Element[listaP7, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
L3 = Element(Element[listaP8, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
M3 = Element(Element[listaP9, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
N3 = Element(Element[listaP10, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
O3 = Element(Element[listaP11, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
P3 = Element(Element[listaP12, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
K4 = Element(Element[listaP7, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
L4 = Element(Element[listaP8, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
M4 = Element(Element[listaP9, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
N4 = Element(Element[listaP10, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
O4 = Element(Element[listaP11, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
P4 = Element(Element[listaP12, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
K5 = Element(Element[listaP7, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
L5 = Element(Element[listaP8, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
M5 = Element(Element[listaP9, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
N5 = Element(Element[listaP10, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
O5 = Element(Element[listaP11, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
P5 = Element(Element[listaP12, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
K6 = Element(Element[listaP7, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
L6 = Element(Element[listaP8, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
M6 = Element(Element[listaP9, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
N6 = Element(Element[listaP10, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
O6 = Element(Element[listaP11, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
P6 = Element(Element[listaP12, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
K7 = Element(Element[listaP7, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
L7 = Element(Element[listaP8, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
M7 = Element(Element[listaP9, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
N7 = Element(Element[listaP10, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
O7 = Element(Element[listaP11, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
P7 = Element(Element[listaP12, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
K8 = Element(Element[listaP7, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
L8 = Element(Element[listaP8, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
M8 = Element(Element[listaP9, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
N8 = Element(Element[listaP10, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
O8 = Element(Element[listaP11, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
P8 = Element(Element[listaP12, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
K9 = Element(Element[listaP7, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
L9 = Element(Element[listaP8, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
M9 = Element(Element[listaP9, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
N9 = Element(Element[listaP10, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
O9 = Element(Element[listaP11, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
P9 = Element(Element[listaP12, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
K10 = Element(Element[listaP7, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
L10 = Element(Element[listaP8, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
M10 = Element(Element[listaP9, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
N10 = Element(Element[listaP10, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
O10 = Element(Element[listaP11, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
P10 = Element(Element[listaP12, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
K11 = Element(Element[listaP7, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
L11 = Element(Element[listaP8, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
M11 = Element(Element[listaP9, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
N11 = Element(Element[listaP10, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
O11 = Element(Element[listaP11, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
P11 = Element(Element[listaP12, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
K12 = Element(Element[listaP7, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
L12 = Element(Element[listaP8, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
M12 = Element(Element[listaP9, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
N12 = Element(Element[listaP10, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
O12 = Element(Element[listaP11, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
P12 = Element(Element[listaP12, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
K13 = Element(Element[listaP7, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
L13 = Element(Element[listaP8, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
M13 = Element(Element[listaP9, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
N13 = Element(Element[listaP10, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
O13 = Element(Element[listaP11, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
P13 = Element(Element[listaP12, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
K14 = Element(Element[listaP7, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
L14 = Element(Element[listaP8, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
M14 = Element(Element[listaP9, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
N14 = Element(Element[listaP10, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
O14 = Element(Element[listaP11, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
P14 = Element(Element[listaP12, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
K15 = Element(Element[listaP7, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
L15 = Element(Element[listaP8, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
M15 = Element(Element[listaP9, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
N15 = Element(Element[listaP10, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
O15 = Element(Element[listaP11, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
P15 = Element(Element[listaP12, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
K16 = Element(Element[listaP7, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
L16 = Element(Element[listaP8, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
M16 = Element(Element[listaP9, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
N16 = Element(Element[listaP10, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
O16 = Element(Element[listaP11, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
P16 = Element(Element[listaP12, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
K17 = Element(Element[listaP7, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
L17 = Element(Element[listaP8, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
M17 = Element(Element[listaP9, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
N17 = Element(Element[listaP10, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
O17 = Element(Element[listaP11, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
P17 = Element(Element[listaP12, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
K18 = Element(Element[listaP7, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
L18 = Element(Element[listaP8, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
M18 = Element(Element[listaP9, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
N18 = Element(Element[listaP10, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
O18 = Element(Element[listaP11, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
P18 = Element(Element[listaP12, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
K19 = Element(Element[listaP7, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
L19 = Element(Element[listaP8, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
M19 = Element(Element[listaP9, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
N19 = Element(Element[listaP10, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
O19 = Element(Element[listaP11, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
P19 = Element(Element[listaP12, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
K20 = Element(Element[listaP7, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
L20 = Element(Element[listaP8, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
M20 = Element(Element[listaP9, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
N20 = Element(Element[listaP10, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
O20 = Element(Element[listaP11, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
P20 = Element(Element[listaP12, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
K21 = Element(Element[listaP7, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
L21 = Element(Element[listaP8, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
M21 = Element(Element[listaP9, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
N21 = Element(Element[listaP10, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
O21 = Element(Element[listaP11, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
P21 = Element(Element[listaP12, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
K22 = Element(Element[listaP7, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
L22 = Element(Element[listaP8, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
M22 = Element(Element[listaP9, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
N22 = Element(Element[listaP10, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
O22 = Element(Element[listaP11, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
P22 = Element(Element[listaP12, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
K23 = Element(Element[listaP7, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
L23 = Element(Element[listaP8, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
M23 = Element(Element[listaP9, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
N23 = Element(Element[listaP10, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
O23 = Element(Element[listaP11, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
P23 = Element(Element[listaP12, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
K24 = Element(Element[listaP7, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
L24 = Element(Element[listaP8, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
M24 = Element(Element[listaP9, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
N24 = Element(Element[listaP10, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
O24 = Element(Element[listaP11, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
P24 = Element(Element[listaP12, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
K25 = Element(Element[listaP7, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
L25 = Element(Element[listaP8, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
M25 = Element(Element[listaP9, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
N25 = Element(Element[listaP10, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
O25 = Element(Element[listaP11, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
P25 = Element(Element[listaP12, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
K26 = Element(Element[listaP7, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
L26 = Element(Element[listaP8, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
M26 = Element(Element[listaP9, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
N26 = Element(Element[listaP10, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
O26 = Element(Element[listaP11, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
P26 = Element(Element[listaP12, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
K27 = Element(Element[listaP7, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
L27 = Element(Element[listaP8, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
M27 = Element(Element[listaP9, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
N27 = Element(Element[listaP10, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
O27 = Element(Element[listaP11, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
P27 = Element(Element[listaP12, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
K28 = Element(Element[listaP7, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
L28 = Element(Element[listaP8, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
M28 = Element(Element[listaP9, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
N28 = Element(Element[listaP10, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
O28 = Element(Element[listaP11, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
P28 = Element(Element[listaP12, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
K29 = Element(Element[listaP7, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
L29 = Element(Element[listaP8, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
M29 = Element(Element[listaP9, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
N29 = Element(Element[listaP10, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
O29 = Element(Element[listaP11, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
P29 = Element(Element[listaP12, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
K30 = Element(Element[listaP7, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
L30 = Element(Element[listaP8, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
M30 = Element(Element[listaP9, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
N30 = Element(Element[listaP10, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
O30 = Element(Element[listaP11, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
P30 = Element(Element[listaP12, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
K31 = Element(Element[listaP7, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
L31 = Element(Element[listaP8, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
M31 = Element(Element[listaP9, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
N31 = Element(Element[listaP10, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
O31 = Element(Element[listaP11, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
P31 = Element(Element[listaP12, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
K32 = Element(Element[listaP7, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
L32 = Element(Element[listaP8, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
M32 = Element(Element[listaP9, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
N32 = Element(Element[listaP10, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
O32 = Element(Element[listaP11, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
P32 = Element(Element[listaP12, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
K33 = Element(Element[listaP7, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
L33 = Element(Element[listaP8, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
M33 = Element(Element[listaP9, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
N33 = Element(Element[listaP10, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
O33 = Element(Element[listaP11, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
P33 = Element(Element[listaP12, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
K34 = Element(Element[listaP7, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
L34 = Element(Element[listaP8, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
M34 = Element(Element[listaP9, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
N34 = Element(Element[listaP10, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
O34 = Element(Element[listaP11, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
P34 = Element(Element[listaP12, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
K35 = Element(Element[listaP7, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
L35 = Element(Element[listaP8, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
M35 = Element(Element[listaP9, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
N35 = Element(Element[listaP10, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
O35 = Element(Element[listaP11, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
P35 = Element(Element[listaP12, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
K36 = Element(Element[listaP7, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
L36 = Element(Element[listaP8, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
M36 = Element(Element[listaP9, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
N36 = Element(Element[listaP10, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
O36 = Element(Element[listaP11, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
P36 = Element(Element[listaP12, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
K37 = Element(Element[listaP7, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
L37 = Element(Element[listaP8, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
M37 = Element(Element[listaP9, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
N37 = Element(Element[listaP10, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
O37 = Element(Element[listaP11, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
P37 = Element(Element[listaP12, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
K38 = Element(Element[listaP7, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
L38 = Element(Element[listaP8, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
M38 = Element(Element[listaP9, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
N38 = Element(Element[listaP10, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
O38 = Element(Element[listaP11, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
P38 = Element(Element[listaP12, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
K39 = Element(Element[listaP7, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
L39 = Element(Element[listaP8, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
M39 = Element(Element[listaP9, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
N39 = Element(Element[listaP10, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
O39 = Element(Element[listaP11, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
P39 = Element(Element[listaP12, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
K40 = Element(Element[listaP7, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
L40 = Element(Element[listaP8, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
M40 = Element(Element[listaP9, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
N40 = Element(Element[listaP10, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
O40 = Element(Element[listaP11, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
P40 = Element(Element[listaP12, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
K41 = Element(Element[listaP7, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
L41 = Element(Element[listaP8, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
M41 = Element(Element[listaP9, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
N41 = Element(Element[listaP10, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
O41 = Element(Element[listaP11, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
P41 = Element(Element[listaP12, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
K42 = Element(Element[listaP7, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
L42 = Element(Element[listaP8, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
M42 = Element(Element[listaP9, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
N42 = Element(Element[listaP10, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
O42 = Element(Element[listaP11, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
P42 = Element(Element[listaP12, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
K43 = Element(Element[listaP7, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
L43 = Element(Element[listaP8, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
M43 = Element(Element[listaP9, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
N43 = Element(Element[listaP10, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
O43 = Element(Element[listaP11, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
P43 = Element(Element[listaP12, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
K44 = Element(Element[listaP7, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
L44 = Element(Element[listaP8, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
M44 = Element(Element[listaP9, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
N44 = Element(Element[listaP10, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
O44 = Element(Element[listaP11, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
P44 = Element(Element[listaP12, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
K45 = Element(Element[listaP7, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
L45 = Element(Element[listaP8, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
M45 = Element(Element[listaP9, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
N45 = Element(Element[listaP10, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
O45 = Element(Element[listaP11, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
P45 = Element(Element[listaP12, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
K46 = Element(Element[listaP7, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
L46 = Element(Element[listaP8, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
M46 = Element(Element[listaP9, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
N46 = Element(Element[listaP10, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
O46 = Element(Element[listaP11, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
P46 = Element(Element[listaP12, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
K47 = Element(Element[listaP7, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
L47 = Element(Element[listaP8, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
M47 = Element(Element[listaP9, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
N47 = Element(Element[listaP10, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
O47 = Element(Element[listaP11, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
P47 = Element(Element[listaP12, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
K48 = Element(Element[listaP7, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
L48 = Element(Element[listaP8, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
M48 = Element(Element[listaP9, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
N48 = Element(Element[listaP10, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
O48 = Element(Element[listaP11, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
P48 = Element(Element[listaP12, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
K49 = Element(Element[listaP7, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
L49 = Element(Element[listaP8, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
M49 = Element(Element[listaP9, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
N49 = Element(Element[listaP10, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
O49 = Element(Element[listaP11, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
P49 = Element(Element[listaP12, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
K50 = Element(Element[listaP7, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
L50 = Element(Element[listaP8, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
M50 = Element(Element[listaP9, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
N50 = Element(Element[listaP10, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
O50 = Element(Element[listaP11, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
P50 = Element(Element[listaP12, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
K51 = Element(Element[listaP7, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
L51 = Element(Element[listaP8, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
M51 = Element(Element[listaP9, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
N51 = Element(Element[listaP10, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
O51 = Element(Element[listaP11, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
P51 = Element(Element[listaP12, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
K52 = Element(Element[listaP7, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
L52 = Element(Element[listaP8, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
M52 = Element(Element[listaP9, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
N52 = Element(Element[listaP10, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
O52 = Element(Element[listaP11, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
P52 = Element(Element[listaP12, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
K53 = Element(Element[listaP7, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
L53 = Element(Element[listaP8, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
M53 = Element(Element[listaP9, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
N53 = Element(Element[listaP10, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
O53 = Element(Element[listaP11, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
P53 = Element(Element[listaP12, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
K54 = Element(Element[listaP7, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
L54 = Element(Element[listaP8, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
M54 = Element(Element[listaP9, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
N54 = Element(Element[listaP10, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
O54 = Element(Element[listaP11, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
P54 = Element(Element[listaP12, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
K55 = Element(Element[listaP7, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
L55 = Element(Element[listaP8, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
M55 = Element(Element[listaP9, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
N55 = Element(Element[listaP10, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
O55 = Element(Element[listaP11, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
P55 = Element(Element[listaP12, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
K56 = Element(Element[listaP7, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
L56 = Element(Element[listaP8, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
M56 = Element(Element[listaP9, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
N56 = Element(Element[listaP10, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
O56 = Element(Element[listaP11, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
P56 = Element(Element[listaP12, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
K57 = Element(Element[listaP7, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
L57 = Element(Element[listaP8, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
M57 = Element(Element[listaP9, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
N57 = Element(Element[listaP10, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
O57 = Element(Element[listaP11, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
P57 = Element(Element[listaP12, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
K58 = Element(Element[listaP7, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
L58 = Element(Element[listaP8, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
M58 = Element(Element[listaP9, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
N58 = Element(Element[listaP10, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
O58 = Element(Element[listaP11, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
P58 = Element(Element[listaP12, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
K59 = Element(Element[listaP7, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
L59 = Element(Element[listaP8, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
M59 = Element(Element[listaP9, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
N59 = Element(Element[listaP10, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
O59 = Element(Element[listaP11, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
P59 = Element(Element[listaP12, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
K60 = Element(Element[listaP7, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
L60 = Element(Element[listaP8, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
M60 = Element(Element[listaP9, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
N60 = Element(Element[listaP10, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
O60 = Element(Element[listaP11, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
P60 = Element(Element[listaP12, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
K61 = Element(Element[listaP7, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
L61 = Element(Element[listaP8, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
M61 = Element(Element[listaP9, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
N61 = Element(Element[listaP10, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
O61 = Element(Element[listaP11, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
P61 = Element(Element[listaP12, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
K62 = Element(Element[listaP7, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
L62 = Element(Element[listaP8, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
M62 = Element(Element[listaP9, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
N62 = Element(Element[listaP10, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
O62 = Element(Element[listaP11, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
P62 = Element(Element[listaP12, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
K63 = Element(Element[listaP7, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
L63 = Element(Element[listaP8, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
M63 = Element(Element[listaP9, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
N63 = Element(Element[listaP10, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
O63 = Element(Element[listaP11, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
P63 = Element(Element[listaP12, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
G2 = Element(Element[listaP4, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
H2 = Element(Element[listaP5, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
I2 = Element(Element[listaP6, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
G3 = Element(Element[listaP4, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
H3 = Element(Element[listaP5, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
I3 = Element(Element[listaP6, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
G4 = Element(Element[listaP4, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
H4 = Element(Element[listaP5, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
I4 = Element(Element[listaP6, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
G5 = Element(Element[listaP4, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
H5 = Element(Element[listaP5, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
I5 = Element(Element[listaP6, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
G6 = Element(Element[listaP4, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
H6 = Element(Element[listaP5, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
I6 = Element(Element[listaP6, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
G7 = Element(Element[listaP4, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
H7 = Element(Element[listaP5, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
I7 = Element(Element[listaP6, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
G8 = Element(Element[listaP4, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
H8 = Element(Element[listaP5, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
I8 = Element(Element[listaP6, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
G9 = Element(Element[listaP4, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
H9 = Element(Element[listaP5, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
I9 = Element(Element[listaP6, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
G10 = Element(Element[listaP4, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
H10 = Element(Element[listaP5, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
I10 = Element(Element[listaP6, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
G11 = Element(Element[listaP4, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
H11 = Element(Element[listaP5, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
I11 = Element(Element[listaP6, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
G12 = Element(Element[listaP4, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
H12 = Element(Element[listaP5, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
I12 = Element(Element[listaP6, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
G13 = Element(Element[listaP4, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
H13 = Element(Element[listaP5, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
I13 = Element(Element[listaP6, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
G14 = Element(Element[listaP4, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
H14 = Element(Element[listaP5, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
I14 = Element(Element[listaP6, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
G15 = Element(Element[listaP4, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
H15 = Element(Element[listaP5, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
I15 = Element(Element[listaP6, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
G16 = Element(Element[listaP4, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
H16 = Element(Element[listaP5, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
I16 = Element(Element[listaP6, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
G17 = Element(Element[listaP4, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
H17 = Element(Element[listaP5, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
I17 = Element(Element[listaP6, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
G18 = Element(Element[listaP4, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
H18 = Element(Element[listaP5, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
I18 = Element(Element[listaP6, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
G19 = Element(Element[listaP4, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
H19 = Element(Element[listaP5, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
I19 = Element(Element[listaP6, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
G20 = Element(Element[listaP4, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
H20 = Element(Element[listaP5, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
I20 = Element(Element[listaP6, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
G21 = Element(Element[listaP4, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
H21 = Element(Element[listaP5, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
I21 = Element(Element[listaP6, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
G22 = Element(Element[listaP4, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
H22 = Element(Element[listaP5, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
I22 = Element(Element[listaP6, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
G23 = Element(Element[listaP4, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
H23 = Element(Element[listaP5, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
I23 = Element(Element[listaP6, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
G24 = Element(Element[listaP4, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
H24 = Element(Element[listaP5, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
I24 = Element(Element[listaP6, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
G25 = Element(Element[listaP4, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
H25 = Element(Element[listaP5, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
I25 = Element(Element[listaP6, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
G26 = Element(Element[listaP4, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
H26 = Element(Element[listaP5, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
I26 = Element(Element[listaP6, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
G27 = Element(Element[listaP4, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
H27 = Element(Element[listaP5, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
I27 = Element(Element[listaP6, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
G28 = Element(Element[listaP4, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
H28 = Element(Element[listaP5, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
I28 = Element(Element[listaP6, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
G29 = Element(Element[listaP4, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
H29 = Element(Element[listaP5, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
I29 = Element(Element[listaP6, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
G30 = Element(Element[listaP4, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
H30 = Element(Element[listaP5, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
I30 = Element(Element[listaP6, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
G31 = Element(Element[listaP4, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
H31 = Element(Element[listaP5, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
I31 = Element(Element[listaP6, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
G32 = Element(Element[listaP4, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
H32 = Element(Element[listaP5, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
I32 = Element(Element[listaP6, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
G33 = Element(Element[listaP4, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
H33 = Element(Element[listaP5, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
I33 = Element(Element[listaP6, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
G34 = Element(Element[listaP4, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
H34 = Element(Element[listaP5, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
I34 = Element(Element[listaP6, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
G35 = Element(Element[listaP4, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
H35 = Element(Element[listaP5, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
I35 = Element(Element[listaP6, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
G36 = Element(Element[listaP4, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
H36 = Element(Element[listaP5, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
I36 = Element(Element[listaP6, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
G37 = Element(Element[listaP4, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
H37 = Element(Element[listaP5, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
I37 = Element(Element[listaP6, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
G38 = Element(Element[listaP4, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
H38 = Element(Element[listaP5, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
I38 = Element(Element[listaP6, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
G39 = Element(Element[listaP4, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
H39 = Element(Element[listaP5, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
I39 = Element(Element[listaP6, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
G40 = Element(Element[listaP4, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
H40 = Element(Element[listaP5, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
I40 = Element(Element[listaP6, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
G41 = Element(Element[listaP4, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
H41 = Element(Element[listaP5, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
I41 = Element(Element[listaP6, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
G42 = Element(Element[listaP4, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
H42 = Element(Element[listaP5, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
I42 = Element(Element[listaP6, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
G43 = Element(Element[listaP4, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
H43 = Element(Element[listaP5, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
I43 = Element(Element[listaP6, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
G44 = Element(Element[listaP4, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
H44 = Element(Element[listaP5, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
I44 = Element(Element[listaP6, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
G45 = Element(Element[listaP4, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
H45 = Element(Element[listaP5, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
I45 = Element(Element[listaP6, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
G46 = Element(Element[listaP4, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
H46 = Element(Element[listaP5, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
I46 = Element(Element[listaP6, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
G47 = Element(Element[listaP4, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
H47 = Element(Element[listaP5, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
I47 = Element(Element[listaP6, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
G48 = Element(Element[listaP4, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
H48 = Element(Element[listaP5, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
I48 = Element(Element[listaP6, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
G49 = Element(Element[listaP4, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
H49 = Element(Element[listaP5, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
I49 = Element(Element[listaP6, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
G50 = Element(Element[listaP4, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
H50 = Element(Element[listaP5, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
I50 = Element(Element[listaP6, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
G51 = Element(Element[listaP4, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
H51 = Element(Element[listaP5, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
I51 = Element(Element[listaP6, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
G52 = Element(Element[listaP4, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
H52 = Element(Element[listaP5, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
I52 = Element(Element[listaP6, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
G53 = Element(Element[listaP4, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
H53 = Element(Element[listaP5, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
I53 = Element(Element[listaP6, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
G54 = Element(Element[listaP4, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
H54 = Element(Element[listaP5, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
I54 = Element(Element[listaP6, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
G55 = Element(Element[listaP4, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
H55 = Element(Element[listaP5, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
I55 = Element(Element[listaP6, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
G56 = Element(Element[listaP4, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
H56 = Element(Element[listaP5, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
I56 = Element(Element[listaP6, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
G57 = Element(Element[listaP4, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
H57 = Element(Element[listaP5, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
I57 = Element(Element[listaP6, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
G58 = Element(Element[listaP4, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
H58 = Element(Element[listaP5, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
I58 = Element(Element[listaP6, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
G59 = Element(Element[listaP4, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
H59 = Element(Element[listaP5, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
I59 = Element(Element[listaP6, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
G60 = Element(Element[listaP4, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
H60 = Element(Element[listaP5, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
I60 = Element(Element[listaP6, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
G61 = Element(Element[listaP4, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
H61 = Element(Element[listaP5, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
I61 = Element(Element[listaP6, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
G62 = Element(Element[listaP4, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
H62 = Element(Element[listaP5, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
I62 = Element(Element[listaP6, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
G63 = Element(Element[listaP4, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
H63 = Element(Element[listaP5, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
I63 = Element(Element[listaP6, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
D2 = Element(Element[listaP2, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
E2 = Element(Element[listaP3, 1 + Div[A2, (2 * k) + 2]], 1 + Mod[A2, (2 * k) + 2])
D3 = Element(Element[listaP2, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
E3 = Element(Element[listaP3, 1 + Div[A3, (2 * k) + 2]], 1 + Mod[A3, (2 * k) + 2])
D4 = Element(Element[listaP2, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
E4 = Element(Element[listaP3, 1 + Div[A4, (2 * k) + 2]], 1 + Mod[A4, (2 * k) + 2])
D5 = Element(Element[listaP2, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
E5 = Element(Element[listaP3, 1 + Div[A5, (2 * k) + 2]], 1 + Mod[A5, (2 * k) + 2])
D6 = Element(Element[listaP2, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
E6 = Element(Element[listaP3, 1 + Div[A6, (2 * k) + 2]], 1 + Mod[A6, (2 * k) + 2])
D7 = Element(Element[listaP2, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
E7 = Element(Element[listaP3, 1 + Div[A7, (2 * k) + 2]], 1 + Mod[A7, (2 * k) + 2])
D8 = Element(Element[listaP2, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
E8 = Element(Element[listaP3, 1 + Div[A8, (2 * k) + 2]], 1 + Mod[A8, (2 * k) + 2])
D9 = Element(Element[listaP2, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
E9 = Element(Element[listaP3, 1 + Div[A9, (2 * k) + 2]], 1 + Mod[A9, (2 * k) + 2])
D10 = Element(Element[listaP2, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
E10 = Element(Element[listaP3, 1 + Div[A10, (2 * k) + 2]], 1 + Mod[A10, (2 * k) + 2])
D11 = Element(Element[listaP2, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
E11 = Element(Element[listaP3, 1 + Div[A11, (2 * k) + 2]], 1 + Mod[A11, (2 * k) + 2])
D12 = Element(Element[listaP2, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
E12 = Element(Element[listaP3, 1 + Div[A12, (2 * k) + 2]], 1 + Mod[A12, (2 * k) + 2])
D13 = Element(Element[listaP2, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
E13 = Element(Element[listaP3, 1 + Div[A13, (2 * k) + 2]], 1 + Mod[A13, (2 * k) + 2])
D14 = Element(Element[listaP2, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
E14 = Element(Element[listaP3, 1 + Div[A14, (2 * k) + 2]], 1 + Mod[A14, (2 * k) + 2])
D15 = Element(Element[listaP2, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
E15 = Element(Element[listaP3, 1 + Div[A15, (2 * k) + 2]], 1 + Mod[A15, (2 * k) + 2])
D16 = Element(Element[listaP2, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
E16 = Element(Element[listaP3, 1 + Div[A16, (2 * k) + 2]], 1 + Mod[A16, (2 * k) + 2])
D17 = Element(Element[listaP2, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
E17 = Element(Element[listaP3, 1 + Div[A17, (2 * k) + 2]], 1 + Mod[A17, (2 * k) + 2])
D18 = Element(Element[listaP2, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
E18 = Element(Element[listaP3, 1 + Div[A18, (2 * k) + 2]], 1 + Mod[A18, (2 * k) + 2])
D19 = Element(Element[listaP2, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
E19 = Element(Element[listaP3, 1 + Div[A19, (2 * k) + 2]], 1 + Mod[A19, (2 * k) + 2])
D20 = Element(Element[listaP2, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
E20 = Element(Element[listaP3, 1 + Div[A20, (2 * k) + 2]], 1 + Mod[A20, (2 * k) + 2])
D21 = Element(Element[listaP2, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
E21 = Element(Element[listaP3, 1 + Div[A21, (2 * k) + 2]], 1 + Mod[A21, (2 * k) + 2])
D22 = Element(Element[listaP2, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
E22 = Element(Element[listaP3, 1 + Div[A22, (2 * k) + 2]], 1 + Mod[A22, (2 * k) + 2])
D23 = Element(Element[listaP2, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
E23 = Element(Element[listaP3, 1 + Div[A23, (2 * k) + 2]], 1 + Mod[A23, (2 * k) + 2])
D24 = Element(Element[listaP2, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
E24 = Element(Element[listaP3, 1 + Div[A24, (2 * k) + 2]], 1 + Mod[A24, (2 * k) + 2])
D25 = Element(Element[listaP2, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
E25 = Element(Element[listaP3, 1 + Div[A25, (2 * k) + 2]], 1 + Mod[A25, (2 * k) + 2])
D26 = Element(Element[listaP2, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
E26 = Element(Element[listaP3, 1 + Div[A26, (2 * k) + 2]], 1 + Mod[A26, (2 * k) + 2])
D27 = Element(Element[listaP2, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
E27 = Element(Element[listaP3, 1 + Div[A27, (2 * k) + 2]], 1 + Mod[A27, (2 * k) + 2])
D28 = Element(Element[listaP2, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
E28 = Element(Element[listaP3, 1 + Div[A28, (2 * k) + 2]], 1 + Mod[A28, (2 * k) + 2])
D29 = Element(Element[listaP2, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
E29 = Element(Element[listaP3, 1 + Div[A29, (2 * k) + 2]], 1 + Mod[A29, (2 * k) + 2])
D30 = Element(Element[listaP2, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
E30 = Element(Element[listaP3, 1 + Div[A30, (2 * k) + 2]], 1 + Mod[A30, (2 * k) + 2])
D31 = Element(Element[listaP2, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
E31 = Element(Element[listaP3, 1 + Div[A31, (2 * k) + 2]], 1 + Mod[A31, (2 * k) + 2])
D32 = Element(Element[listaP2, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
E32 = Element(Element[listaP3, 1 + Div[A32, (2 * k) + 2]], 1 + Mod[A32, (2 * k) + 2])
D33 = Element(Element[listaP2, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
E33 = Element(Element[listaP3, 1 + Div[A33, (2 * k) + 2]], 1 + Mod[A33, (2 * k) + 2])
D34 = Element(Element[listaP2, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
E34 = Element(Element[listaP3, 1 + Div[A34, (2 * k) + 2]], 1 + Mod[A34, (2 * k) + 2])
D35 = Element(Element[listaP2, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
E35 = Element(Element[listaP3, 1 + Div[A35, (2 * k) + 2]], 1 + Mod[A35, (2 * k) + 2])
D36 = Element(Element[listaP2, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
E36 = Element(Element[listaP3, 1 + Div[A36, (2 * k) + 2]], 1 + Mod[A36, (2 * k) + 2])
D37 = Element(Element[listaP2, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
E37 = Element(Element[listaP3, 1 + Div[A37, (2 * k) + 2]], 1 + Mod[A37, (2 * k) + 2])
D38 = Element(Element[listaP2, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
E38 = Element(Element[listaP3, 1 + Div[A38, (2 * k) + 2]], 1 + Mod[A38, (2 * k) + 2])
D39 = Element(Element[listaP2, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
E39 = Element(Element[listaP3, 1 + Div[A39, (2 * k) + 2]], 1 + Mod[A39, (2 * k) + 2])
D40 = Element(Element[listaP2, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
E40 = Element(Element[listaP3, 1 + Div[A40, (2 * k) + 2]], 1 + Mod[A40, (2 * k) + 2])
D41 = Element(Element[listaP2, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
E41 = Element(Element[listaP3, 1 + Div[A41, (2 * k) + 2]], 1 + Mod[A41, (2 * k) + 2])
D42 = Element(Element[listaP2, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
E42 = Element(Element[listaP3, 1 + Div[A42, (2 * k) + 2]], 1 + Mod[A42, (2 * k) + 2])
D43 = Element(Element[listaP2, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
E43 = Element(Element[listaP3, 1 + Div[A43, (2 * k) + 2]], 1 + Mod[A43, (2 * k) + 2])
D44 = Element(Element[listaP2, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
E44 = Element(Element[listaP3, 1 + Div[A44, (2 * k) + 2]], 1 + Mod[A44, (2 * k) + 2])
D45 = Element(Element[listaP2, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
E45 = Element(Element[listaP3, 1 + Div[A45, (2 * k) + 2]], 1 + Mod[A45, (2 * k) + 2])
D46 = Element(Element[listaP2, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
E46 = Element(Element[listaP3, 1 + Div[A46, (2 * k) + 2]], 1 + Mod[A46, (2 * k) + 2])
D47 = Element(Element[listaP2, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
E47 = Element(Element[listaP3, 1 + Div[A47, (2 * k) + 2]], 1 + Mod[A47, (2 * k) + 2])
D48 = Element(Element[listaP2, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
E48 = Element(Element[listaP3, 1 + Div[A48, (2 * k) + 2]], 1 + Mod[A48, (2 * k) + 2])
D49 = Element(Element[listaP2, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
E49 = Element(Element[listaP3, 1 + Div[A49, (2 * k) + 2]], 1 + Mod[A49, (2 * k) + 2])
D50 = Element(Element[listaP2, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
E50 = Element(Element[listaP3, 1 + Div[A50, (2 * k) + 2]], 1 + Mod[A50, (2 * k) + 2])
D51 = Element(Element[listaP2, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
E51 = Element(Element[listaP3, 1 + Div[A51, (2 * k) + 2]], 1 + Mod[A51, (2 * k) + 2])
D52 = Element(Element[listaP2, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
E52 = Element(Element[listaP3, 1 + Div[A52, (2 * k) + 2]], 1 + Mod[A52, (2 * k) + 2])
D53 = Element(Element[listaP2, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
E53 = Element(Element[listaP3, 1 + Div[A53, (2 * k) + 2]], 1 + Mod[A53, (2 * k) + 2])
D54 = Element(Element[listaP2, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
E54 = Element(Element[listaP3, 1 + Div[A54, (2 * k) + 2]], 1 + Mod[A54, (2 * k) + 2])
D55 = Element(Element[listaP2, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
E55 = Element(Element[listaP3, 1 + Div[A55, (2 * k) + 2]], 1 + Mod[A55, (2 * k) + 2])
D56 = Element(Element[listaP2, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
E56 = Element(Element[listaP3, 1 + Div[A56, (2 * k) + 2]], 1 + Mod[A56, (2 * k) + 2])
D57 = Element(Element[listaP2, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
E57 = Element(Element[listaP3, 1 + Div[A57, (2 * k) + 2]], 1 + Mod[A57, (2 * k) + 2])
D58 = Element(Element[listaP2, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
E58 = Element(Element[listaP3, 1 + Div[A58, (2 * k) + 2]], 1 + Mod[A58, (2 * k) + 2])
D59 = Element(Element[listaP2, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
E59 = Element(Element[listaP3, 1 + Div[A59, (2 * k) + 2]], 1 + Mod[A59, (2 * k) + 2])
D60 = Element(Element[listaP2, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
E60 = Element(Element[listaP3, 1 + Div[A60, (2 * k) + 2]], 1 + Mod[A60, (2 * k) + 2])
D61 = Element(Element[listaP2, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
E61 = Element(Element[listaP3, 1 + Div[A61, (2 * k) + 2]], 1 + Mod[A61, (2 * k) + 2])
D62 = Element(Element[listaP2, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
E62 = Element(Element[listaP3, 1 + Div[A62, (2 * k) + 2]], 1 + Mod[A62, (2 * k) + 2])
D63 = Element(Element[listaP2, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
E63 = Element(Element[listaP3, 1 + Div[A63, (2 * k) + 2]], 1 + Mod[A63, (2 * k) + 2])
lista6 = Sequence(Line[CRot' + ((s * 3) * u), CRot' + v + ((s * 3) * u)], s, (-(k + 1)), k + 1)
lista5: {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' - u + v + ((s * 2) * u), CRot' + u - v + ((s * 2) * u)], s, (-(k + 1)), k + 1], Sequence[Line[CRot' - u - v + z / 2 + ((s * 2) * v), CRot' + u + v - z / 2 + ((s * 2) * v)], s, (-(k + 1)), k + 1], Sequence[Line[CRot' - u1 + v1 / 2 + ((s * 2) * v), CRot' + u1 - v1 / 2 + ((s * 2) * v)], s, (-(k + 1)), k + 1]}
PPP: (xQ, yQ)