Oculta

C

C

C

C

C

Color manual

Rastro

Dibujo libre

Bordes

Desplazamiento

Vértices

oculta = false
B = (8.86, -0.24)
A = (4.74, 0.42)
Rombo = Point(Circle[A, B])
Cuadrado = Rotate(B, 90°, A)
Rectángulo = Point(Ray[A, Cuadrado])
Hexágono = Rotate(B, 60°, A)
u = Vector(A, B)
M: A + u / 2
Romboide = (6.140000000000001, 2.74)
listaCC: {Romboide, Romboide, Rombo, Rombo, Rectángulo, Rectángulo, Rectángulo, Rectángulo, Rectángulo, Cuadrado, Cuadrado, Cuadrado, Hexágono, Hexágono, Hexágono, Hexágono, Hexágono}
Grupo = 1 (slider from 1 to 17, step 1)
C = Element(listaCC, Grupo)
E: (B + C) / 2
v = Vector(A, C)
D: B + v
w = Vector(A, D)
A': A + v / 2
O: (A + B + C) / 3
w1 = Vector(B, O)
G = Mirror(A, O)
F = Mirror(C, O)
v1 = Vector(F, O)
u1 = Vector(F, B)
N = Midpoint(B, F)
Z: Corner[pincel, 1] + (0.05, 0)
ZHy = Intersect(Line[F, v1], Line[Z, u1])
testFO: (AffineRatio[F, O, ZHy] ≥ 0) ∧ (AffineRatio[F, O, ZHy] ≤ 1)
ZHx = Intersect(Line[F, u1], Line[Z, v1])
testFB: (AffineRatio[F, B, ZHx] ≥ 0) ∧ (AffineRatio[F, B, ZHx] ≤ 1)
ZHz = Intersect(Line[F, v1], Line[Z, w1])
testFOz: (AffineRatio[F, O, ZHz] ≥ 0) ∧ (AffineRatio[F, O, ZHz] ≤ 1)
ZHx2 = Intersect(Line[F, u1], Line[Z, Vector[F, G]])
testFB2: (AffineRatio[F, B, ZHx2] ≥ 0) ∧ (AffineRatio[F, B, ZHx2] ≤ 1)
Zw = Intersect(Line[A, w], Line[Z, Vector[B, E]])
testAE: (AffineRatio[A, E, Zw] ≥ 0) ∧ (AffineRatio[A, E, Zw] ≤ 1)
testAE2: (AffineRatio[A, (A + E) / 2, Zw] ≥ 0) ∧ (AffineRatio[A, (A + E) / 2, Zw] ≤ 1)
Zz = Intersect(Line[A, u], Line[Z, w])
testAMz: (AffineRatio[A, M, Zz] ≥ 0) ∧ (AffineRatio[A, M, Zz] ≤ 1)
testABz: (AffineRatio[A, B, Zz] ≥ 0) ∧ (AffineRatio[A, B, Zz] ≤ 1)
Zy = Intersect(Line[A, v], Line[Z, u])
testAA': (AffineRatio[A, A', Zy] ≥ 0) ∧ (AffineRatio[A, A', Zy] ≤ 1)
testAC: (AffineRatio[A, C, Zy] ≥ 0) ∧ (AffineRatio[A, C, Zy] ≤ 1)
Zx = Intersect(Line[A, u], Line[Z, v])
testAB: (AffineRatio[A, B, Zx] ≥ 0) ∧ (AffineRatio[A, B, Zx] ≤ 1)
testAM: (AffineRatio[A, M, Zx] ≥ 0) ∧ (AffineRatio[A, M, Zx] ≤ 1)
ZHx3 = Intersect(Line[F, u1], Line[Z, Vector[O, N]])
testBN: (AffineRatio[N, B, ZHx3] ≥ 0) ∧ (AffineRatio[N, B, ZHx3] ≤ 1)
listaTest: {testAB ∧ testAC, testAB ∧ testAA', testAB ∧ testAC ∧ testABz, testAA' ∧ testABz ∧ testAE, testAB ∧ testAA', testAB ∧ testAA', testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM ∧ testAMz, testAA' ∧ testAE2 ∧ testAM, testFB ∧ testFO, testFB ∧ testFO ∧ testFOz, testFB ∧ testFO ∧ testFB2, testFB ∧ testFO ∧ testFOz, testFO ∧ testBN ∧ testFOz}
yZ = 3.0599999999999996
xZ = 8.58 (slider from 0.5 to 50, step 0.01)
rFO = Line(F, O)
rAC = Line(A, v)
rBD = Line(B, D)
rBG = Line(B, G)
listaRojos: {Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO]}
rAD = Line(A, D)
cMazul = 22 (slider from 0 to 100, step 1)
listaAzules: {Distance[Z, B] / Distance[B, C], Distance[Z, B] / Distance[B, A'], Distance[Z, rBD] / Distance[A, rBD], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A'], Distance[Z, B] / Distance[B, A'], Distance[Z, M] / Distance[M, A'], Distance[Z, M] / Distance[M, A'], Distance[Z, M] / Distance[M, A'], Distance[Z, M] / Distance[M, A'], Distance[Z, M] / Distance[M, A], Distance[Z, M] / Distance[M, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A]}
manual = false
cAazul: (Element[listaAzules, Grupo] * 0.9)
cMrojo = 70 (slider from 0 to 100, step 1)
rAB = Line(A, u)
rBF = Line(B, F)
listaVerdes: {Distance[Z, rAB] / Distance[C, rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rAB] / Distance[D, rAB], Distance[Z, rAB] / Distance[E, rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rAB] / Distance[A', rAB], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rBF] / Distance[G, rBF], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rBF] / Distance[O, rBF]}
cMverde = 54 (slider from 0 to 100, step 1)
cAverde: (Element[listaVerdes, Grupo] * 0.8)
B'': B + v / 4
A'': A + v / 4
rA''B'' = Line(A'', B'')
B': B + v / 2
rA'M = Line(A', M)
rA'B' = Line(A', B')
rAE = Line(A, E)
rBO = Line(B, O)
rFG = Line(F, G)
rNO = Line(O, N)
E' = Midpoint(E, M)
listaCRot: {Z, E, Z, E, Z, Z, E, E, E', E, E, E, O, O, O, O, O}
CRot = Element(listaCRot, Grupo)
k = 4 (slider from 0 to 5, step 1)
H = Mirror(B, O)
listaCeldas: {{A, B, D, C, A}, {A, A', B', B, A}, {A, B, D, A}, {A, B, E, A}, {A, A', B', B, A}, {A, A', B', B, A}, {A, A', E, M, A}, {A, A', E, M, A}, {A, A', E, M, A}, {A, A', E, M, A}, {A, M, E, A}, {A, A', M, A}, {F, O, G, B, F}, {F, O, B, F}, {F, G, B, F}, {F, B, O, F}, {N, O, B, N}}
lados1 = Sequence(Sequence[Segment[F + ((3 * s) * u1) + (t * (H - F)), F + u1 + ((3 * s) * u1) + (t * (H - F))], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados1b = Sequence(Sequence[Segment[G + ((3 * s) * u1) + (t * (H - F)), G + u1 + ((3 * s) * u1) + (t * (H - F))], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados2 = Sequence(Sequence[Segment[B + ((3 * s) * v1) + (t * u), B + v1 + ((3 * s) * v1) + (t * u)], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados2b = Sequence(Sequence[Segment[C + ((3 * s) * v1) + (t * u), C + v1 + ((3 * s) * v1) + (t * u)], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados3 = Sequence(Sequence[Segment[F + ((3 * s) * (A - F)) + (t * v), A + ((3 * s) * (A - F)) + (t * v)], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados3b = Sequence(Sequence[Segment[H + ((3 * s) * (A - F)) + (t * v), H + O - B + ((3 * s) * (A - F)) + (t * v)], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
listaPolígonos: {Polygon[A, B, D, C], Polygon[A, A', B', B], Polygon[A, B, D], Polygon[A, B, E], Polygon[A, A', B', B], Polygon[A, A', B', B], Polygon[A, A', E, M], Polygon[A, A', E, M], Polygon[A, A', E, M], Polygon[A, A', E, M], Polygon[A, M, E], Polygon[A, A', M], Polygon[F, O, G, B], Polygon[F, O, B], Polygon[F, G, B], Polygon[F, B, O], Polygon[N, O, B]}
Zz2 = Mirror(Z, CRot)
celdaP = Element(listaPolígonos, Grupo)
celda = Sequence(Segment[Element[Element[listaCeldas, Grupo], s], Element[Element[listaCeldas, Grupo], s + 1]], s, 1, Length[Element[listaCeldas, Grupo]] - 1)
listaZ = Sequence(Sequence[Z + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaEspejos: {rAB, rAB, rAD, rAD, rA'B', rA'B', rA'B', rA''B'', rA'B', rAB, rAE, rA'M, rAB, rBO, rFG, rAB, rNO}
espejo = Element(listaEspejos, Grupo)
ZzR = Mirror(Z, espejo)
ZzR2 = Mirror(ZzR, CRot)
listaZ2 = Sequence(Sequence[Zz2 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR = Sequence(Sequence[ZzR + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR2 = Sequence(Sequence[ZzR2 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
rBC = Line(B, C)
rastro = false
libre = true
texto1: "% Rojo = " + cMrojo + "

% Verde = " + cMverde + "

% Azul = " + cMazul
ColorMuestra = (-1.92, 1.34)
A1 = 0
A2 = 1
A3: (2 * A2) - A1
bordes = true
C1 = Element(Element[listaZ2, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
D1 = Element(Element[listaZR, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
cArojo: (Element[listaRojos, Grupo] * 0.9)
ccRojo = If(manual, cMrojo / 100, cArojo)
ccAzul = If(manual, cMazul / 100, cAazul)
ccVerde = If(manual, cMverde / 100, cAverde)
E1 = Element(Element[listaZR2, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
test: Element[listaTest, Grupo] ∧ (¬oculta)
testQ: (AffineRatio[A, B, Zx] ≥ 0) ∧ (AffineRatio[A, B, Zx] ≤ 1) ∧ (AffineRatio[A, C, Zy] ≥ 0) ∧ (AffineRatio[A, C, Zy] ≤ 1) ∧ libre ∧ rastro
visibleZ2: Grupo ≟ 2 ∨ Grupo ≟ 4 ∨ Grupo ≟ 7 ∨ Grupo ≟ 8 ∨ Grupo ≟ 9 ∨ Grupo ≟ 10 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12 ∨ Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZR: Grupo ≟ 3 ∨ Grupo ≟ 4 ∨ Grupo ≟ 5 ∨ Grupo ≟ 7 ∨ Grupo ≟ 9 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12 ∨ Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 17
visibleZR2: Grupo ≟ 4 ∨ Grupo ≟ 7 ∨ Grupo ≟ 9 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12 ∨ Grupo ≟ 17
visibleZRD6: Grupo ≟ 6
visibleZRD8: Grupo ≟ 8
visibleZ2RD8: Grupo ≟ 8
visibleZ4: Grupo ≟ 10 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12
visibleZ42: Grupo ≟ 10 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12
visibleZR4: Grupo ≟ 11 ∨ Grupo ≟ 12
visibleZR42: Grupo ≟ 11 ∨ Grupo ≟ 12
visibleZ3: Grupo ≟ 13 ∨ Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZ3': Grupo ≟ 13 ∨ Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZR3': Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 17
visibleZR3: Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 17
visibleZ6: Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZ6': Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZR6: Grupo ≟ 17
visibleZR6': Grupo ≟ 17
Desplazamiento: C + u / 2
z = Vector(Rectángulo, Desplazamiento)
ZzRD8: ZzR + u / 2
ZzRD6: ZzR + z
Zz2RD8 = Mirror(ZzRD8, CRot)
Zz4 = Rotate(Z, 90°, CRot)
ZzR4 = Rotate(ZzR, 90°, CRot)
Zz42 = Mirror(Zz4, CRot)
ZzR42 = Mirror(ZzR4, CRot)
Zz3 = Rotate(Z, 120°, CRot)
Zz3' = Rotate(Z, 240°, CRot)
ZzR3 = Rotate(ZzR, 120°, CRot)
ZzR3' = Rotate(ZzR, 240°, CRot)
Zz6 = Rotate(Z, 60°, CRot)
Zz6' = Rotate(Z, 300°, CRot)
ZzR6 = Rotate(ZzR, 60°, CRot)
ZzR6' = Rotate(ZzR, 300°, CRot)
listaZRd6 = Sequence(Sequence[ZzRD6 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZRD8 = Sequence(Sequence[ZzRD8 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ2Rd8 = Sequence(Sequence[Zz2RD8 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ4 = Sequence(Sequence[Zz4 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ42 = Sequence(Sequence[Zz42 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR42 = Sequence(Sequence[ZzR42 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR4 = Sequence(Sequence[ZzR4 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ3 = Sequence(Sequence[Zz3 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ3' = Sequence(Sequence[Zz3' + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR3 = Sequence(Sequence[ZzR3 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR3' = Sequence(Sequence[ZzR3' + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ6 = Sequence(Sequence[Zz6 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ6' = Sequence(Sequence[Zz6' + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR6' = Sequence(Sequence[ZzR6' + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR6 = Sequence(Sequence[ZzR6 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
F1 = Element(Element[listaZRd6, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
G1 = Element(Element[listaZRD8, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
H1 = Element(Element[listaZ2Rd8, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
I1 = Element(Element[listaZ4, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
J1 = Element(Element[listaZ42, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
K1 = Element(Element[listaZR4, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
L1 = Element(Element[listaZR42, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
M1 = Element(Element[listaZ3, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
N1 = Element(Element[listaZ3', 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
O1 = Element(Element[listaZR3, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
P1 = Element(Element[listaZR3', 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
Q1 = Element(Element[listaZ6, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
R1 = Element(Element[listaZ6', 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
S1 = Element(Element[listaZR6, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
T1 = Element(Element[listaZR6', 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
A21: (2 * A20) - A19
A22: (2 * A21) - A20
A23: (2 * A22) - A21
A24: (2 * A23) - A22
A25: (2 * A24) - A23
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
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
A62: (2 * A61) - A60
A63: (2 * A62) - A61
A64: (2 * A63) - A62
A65: (2 * A64) - A63
A66: (2 * A65) - A64
A67: (2 * A66) - A65
A68: (2 * A67) - A66
A69: (2 * A68) - A67
A70: (2 * A69) - A68
A71: (2 * A70) - A69
A72: (2 * A71) - A70
A73: (2 * A72) - A71
A74: (2 * A73) - A72
A75: (2 * A74) - A73
A76: (2 * A75) - A74
A77: (2 * A76) - A75
A78: (2 * A77) - A76
A79: (2 * A78) - A77
A80: (2 * A79) - A78
A81: (2 * A80) - A79
A82: (2 * A81) - A80
A83: (2 * A82) - A81
A84: (2 * A83) - A82
verDesplazamiento = false
B1 = Element(Element[listaZ, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
C2 = Element(Element[listaZ2, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
D2 = Element(Element[listaZR, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
E2 = Element(Element[listaZR2, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
F2 = Element(Element[listaZRd6, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
G2 = Element(Element[listaZRD8, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
H2 = Element(Element[listaZ2Rd8, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
I2 = Element(Element[listaZ4, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
J2 = Element(Element[listaZ42, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
K2 = Element(Element[listaZR4, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
L2 = Element(Element[listaZR42, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
M2 = Element(Element[listaZ3, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
N2 = Element(Element[listaZ3', 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
O2 = Element(Element[listaZR3, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
P2 = Element(Element[listaZR3', 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
Q2 = Element(Element[listaZ6, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
R2 = Element(Element[listaZ6', 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
S2 = Element(Element[listaZR6, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
T2 = Element(Element[listaZR6', 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
B2 = Element(Element[listaZ, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
C3 = Element(Element[listaZ2, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
D3 = Element(Element[listaZR, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
E3 = Element(Element[listaZR2, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
F3 = Element(Element[listaZRd6, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
G3 = Element(Element[listaZRD8, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
H3 = Element(Element[listaZ2Rd8, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
I3 = Element(Element[listaZ4, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
J3 = Element(Element[listaZ42, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
K3 = Element(Element[listaZR4, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
L3 = Element(Element[listaZR42, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
M3 = Element(Element[listaZ3, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
N3 = Element(Element[listaZ3', 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
O3 = Element(Element[listaZR3, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
P3 = Element(Element[listaZR3', 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
Q3 = Element(Element[listaZ6, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
R3 = Element(Element[listaZ6', 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
S3 = Element(Element[listaZR6, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
T3 = Element(Element[listaZR6', 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
B3 = Element(Element[listaZ, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
C4 = Element(Element[listaZ2, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
D4 = Element(Element[listaZR, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
E4 = Element(Element[listaZR2, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
F4 = Element(Element[listaZRd6, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
G4 = Element(Element[listaZRD8, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
H4 = Element(Element[listaZ2Rd8, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
I4 = Element(Element[listaZ4, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
J4 = Element(Element[listaZ42, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
K4 = Element(Element[listaZR4, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
L4 = Element(Element[listaZR42, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
M4 = Element(Element[listaZ3, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
N4 = Element(Element[listaZ3', 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
O4 = Element(Element[listaZR3, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
P4 = Element(Element[listaZR3', 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
Q4 = Element(Element[listaZ6, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
R4 = Element(Element[listaZ6', 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
S4 = Element(Element[listaZR6, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
T4 = Element(Element[listaZR6', 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
B4 = Element(Element[listaZ, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
C5 = Element(Element[listaZ2, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
D5 = Element(Element[listaZR, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
E5 = Element(Element[listaZR2, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
F5 = Element(Element[listaZRd6, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
G5 = Element(Element[listaZRD8, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
H5 = Element(Element[listaZ2Rd8, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
I5 = Element(Element[listaZ4, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
J5 = Element(Element[listaZ42, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
K5 = Element(Element[listaZR4, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
L5 = Element(Element[listaZR42, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
M5 = Element(Element[listaZ3, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
N5 = Element(Element[listaZ3', 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
O5 = Element(Element[listaZR3, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
P5 = Element(Element[listaZR3', 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
Q5 = Element(Element[listaZ6, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
R5 = Element(Element[listaZ6', 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
S5 = Element(Element[listaZR6, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
T5 = Element(Element[listaZR6', 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
B5 = Element(Element[listaZ, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
C6 = Element(Element[listaZ2, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
D6 = Element(Element[listaZR, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
E6 = Element(Element[listaZR2, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
F6 = Element(Element[listaZRd6, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
G6 = Element(Element[listaZRD8, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
H6 = Element(Element[listaZ2Rd8, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
I6 = Element(Element[listaZ4, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
J6 = Element(Element[listaZ42, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
K6 = Element(Element[listaZR4, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
L6 = Element(Element[listaZR42, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
M6 = Element(Element[listaZ3, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
N6 = Element(Element[listaZ3', 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
O6 = Element(Element[listaZR3, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
P6 = Element(Element[listaZR3', 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
Q6 = Element(Element[listaZ6, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
R6 = Element(Element[listaZ6', 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
S6 = Element(Element[listaZR6, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
T6 = Element(Element[listaZR6', 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
B6 = Element(Element[listaZ, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
C7 = Element(Element[listaZ2, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
D7 = Element(Element[listaZR, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
E7 = Element(Element[listaZR2, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
F7 = Element(Element[listaZRd6, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
G7 = Element(Element[listaZRD8, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
H7 = Element(Element[listaZ2Rd8, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
I7 = Element(Element[listaZ4, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
J7 = Element(Element[listaZ42, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
K7 = Element(Element[listaZR4, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
L7 = Element(Element[listaZR42, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
M7 = Element(Element[listaZ3, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
N7 = Element(Element[listaZ3', 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
O7 = Element(Element[listaZR3, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
P7 = Element(Element[listaZR3', 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
Q7 = Element(Element[listaZ6, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
R7 = Element(Element[listaZ6', 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
S7 = Element(Element[listaZR6, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
T7 = Element(Element[listaZR6', 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
B7 = Element(Element[listaZ, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
C8 = Element(Element[listaZ2, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
D8 = Element(Element[listaZR, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
E8 = Element(Element[listaZR2, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
F8 = Element(Element[listaZRd6, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
G8 = Element(Element[listaZRD8, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
H8 = Element(Element[listaZ2Rd8, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
I8 = Element(Element[listaZ4, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
J8 = Element(Element[listaZ42, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
K8 = Element(Element[listaZR4, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
L8 = Element(Element[listaZR42, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
M8 = Element(Element[listaZ3, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
N8 = Element(Element[listaZ3', 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
O8 = Element(Element[listaZR3, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
P8 = Element(Element[listaZR3', 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
Q8 = Element(Element[listaZ6, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
R8 = Element(Element[listaZ6', 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
S8 = Element(Element[listaZR6, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
T8 = Element(Element[listaZR6', 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
B8 = Element(Element[listaZ, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
C9 = Element(Element[listaZ2, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
D9 = Element(Element[listaZR, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
E9 = Element(Element[listaZR2, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
F9 = Element(Element[listaZRd6, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
G9 = Element(Element[listaZRD8, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
H9 = Element(Element[listaZ2Rd8, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
I9 = Element(Element[listaZ4, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
J9 = Element(Element[listaZ42, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
K9 = Element(Element[listaZR4, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
L9 = Element(Element[listaZR42, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
M9 = Element(Element[listaZ3, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
N9 = Element(Element[listaZ3', 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
O9 = Element(Element[listaZR3, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
P9 = Element(Element[listaZR3', 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
Q9 = Element(Element[listaZ6, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
R9 = Element(Element[listaZ6', 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
S9 = Element(Element[listaZR6, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
T9 = Element(Element[listaZR6', 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
B9 = Element(Element[listaZ, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
B10 = Element(Element[listaZ, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
B11 = Element(Element[listaZ, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
B12 = Element(Element[listaZ, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
B13 = Element(Element[listaZ, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
B14 = Element(Element[listaZ, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
B15 = Element(Element[listaZ, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
B16 = Element(Element[listaZ, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
B17 = Element(Element[listaZ, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
B18 = Element(Element[listaZ, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
B19 = Element(Element[listaZ, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
B20 = Element(Element[listaZ, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
B21 = Element(Element[listaZ, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
B22 = Element(Element[listaZ, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
B23 = Element(Element[listaZ, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
B24 = Element(Element[listaZ, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
B25 = Element(Element[listaZ, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
B26 = Element(Element[listaZ, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
B27 = Element(Element[listaZ, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
B28 = Element(Element[listaZ, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
B29 = Element(Element[listaZ, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
B30 = Element(Element[listaZ, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
B31 = Element(Element[listaZ, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
B32 = Element(Element[listaZ, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
B33 = Element(Element[listaZ, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
B34 = Element(Element[listaZ, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
B35 = Element(Element[listaZ, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
B36 = Element(Element[listaZ, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
B37 = Element(Element[listaZ, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
B38 = Element(Element[listaZ, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
B39 = Element(Element[listaZ, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
B40 = Element(Element[listaZ, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
B41 = Element(Element[listaZ, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
B42 = Element(Element[listaZ, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
B43 = Element(Element[listaZ, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
B44 = Element(Element[listaZ, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
B45 = Element(Element[listaZ, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
B46 = Element(Element[listaZ, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
B47 = Element(Element[listaZ, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
B48 = Element(Element[listaZ, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
B49 = Element(Element[listaZ, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
B50 = Element(Element[listaZ, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
B51 = Element(Element[listaZ, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
B52 = Element(Element[listaZ, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
B53 = Element(Element[listaZ, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
B54 = Element(Element[listaZ, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
B55 = Element(Element[listaZ, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
B56 = Element(Element[listaZ, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
B57 = Element(Element[listaZ, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
B58 = Element(Element[listaZ, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
B59 = Element(Element[listaZ, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
B60 = Element(Element[listaZ, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
B61 = Element(Element[listaZ, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
B62 = Element(Element[listaZ, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
B63 = Element(Element[listaZ, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
B64 = Element(Element[listaZ, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
B65 = Element(Element[listaZ, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
B66 = Element(Element[listaZ, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
B67 = Element(Element[listaZ, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
B68 = Element(Element[listaZ, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
B69 = Element(Element[listaZ, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
B70 = Element(Element[listaZ, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
B71 = Element(Element[listaZ, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
B72 = Element(Element[listaZ, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
B73 = Element(Element[listaZ, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
B74 = Element(Element[listaZ, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
B75 = Element(Element[listaZ, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
B76 = Element(Element[listaZ, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
B77 = Element(Element[listaZ, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
B78 = Element(Element[listaZ, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
B79 = Element(Element[listaZ, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
B80 = Element(Element[listaZ, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
B81 = Element(Element[listaZ, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
A85: (2 * A84) - A83
A86: (2 * A85) - A84
A87: (2 * A86) - A85
A88: (2 * A87) - A86
C10 = Element(Element[listaZ2, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
D10 = Element(Element[listaZR, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
E10 = Element(Element[listaZR2, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
F10 = Element(Element[listaZRd6, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
G10 = Element(Element[listaZRD8, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
H10 = Element(Element[listaZ2Rd8, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
I10 = Element(Element[listaZ4, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
J10 = Element(Element[listaZ42, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
K10 = Element(Element[listaZR4, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
L10 = Element(Element[listaZR42, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
M10 = Element(Element[listaZ3, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
N10 = Element(Element[listaZ3', 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
O10 = Element(Element[listaZR3, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
P10 = Element(Element[listaZR3', 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
Q10 = Element(Element[listaZ6, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
R10 = Element(Element[listaZ6', 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
S10 = Element(Element[listaZR6, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
T10 = Element(Element[listaZR6', 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
C11 = Element(Element[listaZ2, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
D11 = Element(Element[listaZR, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
E11 = Element(Element[listaZR2, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
F11 = Element(Element[listaZRd6, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
G11 = Element(Element[listaZRD8, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
H11 = Element(Element[listaZ2Rd8, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
I11 = Element(Element[listaZ4, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
J11 = Element(Element[listaZ42, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
K11 = Element(Element[listaZR4, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
L11 = Element(Element[listaZR42, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
M11 = Element(Element[listaZ3, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
N11 = Element(Element[listaZ3', 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
O11 = Element(Element[listaZR3, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
P11 = Element(Element[listaZR3', 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
Q11 = Element(Element[listaZ6, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
R11 = Element(Element[listaZ6', 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
S11 = Element(Element[listaZR6, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
T11 = Element(Element[listaZR6', 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
C12 = Element(Element[listaZ2, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
D12 = Element(Element[listaZR, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
E12 = Element(Element[listaZR2, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
F12 = Element(Element[listaZRd6, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
G12 = Element(Element[listaZRD8, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
H12 = Element(Element[listaZ2Rd8, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
I12 = Element(Element[listaZ4, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
J12 = Element(Element[listaZ42, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
K12 = Element(Element[listaZR4, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
L12 = Element(Element[listaZR42, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
M12 = Element(Element[listaZ3, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
N12 = Element(Element[listaZ3', 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
O12 = Element(Element[listaZR3, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
P12 = Element(Element[listaZR3', 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
Q12 = Element(Element[listaZ6, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
R12 = Element(Element[listaZ6', 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
S12 = Element(Element[listaZR6, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
T12 = Element(Element[listaZR6', 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
C13 = Element(Element[listaZ2, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
D13 = Element(Element[listaZR, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
E13 = Element(Element[listaZR2, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
F13 = Element(Element[listaZRd6, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
G13 = Element(Element[listaZRD8, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
H13 = Element(Element[listaZ2Rd8, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
I13 = Element(Element[listaZ4, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
J13 = Element(Element[listaZ42, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
K13 = Element(Element[listaZR4, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
L13 = Element(Element[listaZR42, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
M13 = Element(Element[listaZ3, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
N13 = Element(Element[listaZ3', 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
O13 = Element(Element[listaZR3, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
P13 = Element(Element[listaZR3', 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
Q13 = Element(Element[listaZ6, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
R13 = Element(Element[listaZ6', 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
S13 = Element(Element[listaZR6, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
T13 = Element(Element[listaZR6', 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
C14 = Element(Element[listaZ2, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
D14 = Element(Element[listaZR, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
E14 = Element(Element[listaZR2, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
F14 = Element(Element[listaZRd6, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
G14 = Element(Element[listaZRD8, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
H14 = Element(Element[listaZ2Rd8, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
I14 = Element(Element[listaZ4, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
J14 = Element(Element[listaZ42, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
K14 = Element(Element[listaZR4, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
L14 = Element(Element[listaZR42, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
M14 = Element(Element[listaZ3, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
N14 = Element(Element[listaZ3', 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
O14 = Element(Element[listaZR3, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
P14 = Element(Element[listaZR3', 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
Q14 = Element(Element[listaZ6, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
R14 = Element(Element[listaZ6', 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
S14 = Element(Element[listaZR6, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
T14 = Element(Element[listaZR6', 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
C15 = Element(Element[listaZ2, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
D15 = Element(Element[listaZR, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
E15 = Element(Element[listaZR2, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
F15 = Element(Element[listaZRd6, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
G15 = Element(Element[listaZRD8, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
H15 = Element(Element[listaZ2Rd8, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
I15 = Element(Element[listaZ4, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
J15 = Element(Element[listaZ42, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
K15 = Element(Element[listaZR4, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
L15 = Element(Element[listaZR42, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
M15 = Element(Element[listaZ3, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
N15 = Element(Element[listaZ3', 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
O15 = Element(Element[listaZR3, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
P15 = Element(Element[listaZR3', 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
Q15 = Element(Element[listaZ6, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
R15 = Element(Element[listaZ6', 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
S15 = Element(Element[listaZR6, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
T15 = Element(Element[listaZR6', 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
C16 = Element(Element[listaZ2, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
D16 = Element(Element[listaZR, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
E16 = Element(Element[listaZR2, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
F16 = Element(Element[listaZRd6, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
G16 = Element(Element[listaZRD8, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
H16 = Element(Element[listaZ2Rd8, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
I16 = Element(Element[listaZ4, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
J16 = Element(Element[listaZ42, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
K16 = Element(Element[listaZR4, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
L16 = Element(Element[listaZR42, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
M16 = Element(Element[listaZ3, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
N16 = Element(Element[listaZ3', 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
O16 = Element(Element[listaZR3, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
P16 = Element(Element[listaZR3', 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
Q16 = Element(Element[listaZ6, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
R16 = Element(Element[listaZ6', 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
S16 = Element(Element[listaZR6, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
T16 = Element(Element[listaZR6', 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
C17 = Element(Element[listaZ2, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
D17 = Element(Element[listaZR, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
E17 = Element(Element[listaZR2, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
F17 = Element(Element[listaZRd6, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
G17 = Element(Element[listaZRD8, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
H17 = Element(Element[listaZ2Rd8, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
I17 = Element(Element[listaZ4, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
J17 = Element(Element[listaZ42, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
K17 = Element(Element[listaZR4, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
L17 = Element(Element[listaZR42, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
M17 = Element(Element[listaZ3, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
N17 = Element(Element[listaZ3', 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
O17 = Element(Element[listaZR3, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
P17 = Element(Element[listaZR3', 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
Q17 = Element(Element[listaZ6, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
R17 = Element(Element[listaZ6', 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
S17 = Element(Element[listaZR6, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
T17 = Element(Element[listaZR6', 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
C18 = Element(Element[listaZ2, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
D18 = Element(Element[listaZR, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
E18 = Element(Element[listaZR2, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
F18 = Element(Element[listaZRd6, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
G18 = Element(Element[listaZRD8, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
H18 = Element(Element[listaZ2Rd8, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
I18 = Element(Element[listaZ4, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
J18 = Element(Element[listaZ42, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
K18 = Element(Element[listaZR4, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
L18 = Element(Element[listaZR42, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
M18 = Element(Element[listaZ3, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
N18 = Element(Element[listaZ3', 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
O18 = Element(Element[listaZR3, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
P18 = Element(Element[listaZR3', 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
Q18 = Element(Element[listaZ6, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
R18 = Element(Element[listaZ6', 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
S18 = Element(Element[listaZR6, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
T18 = Element(Element[listaZR6', 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
C19 = Element(Element[listaZ2, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
D19 = Element(Element[listaZR, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
E19 = Element(Element[listaZR2, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
F19 = Element(Element[listaZRd6, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
G19 = Element(Element[listaZRD8, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
H19 = Element(Element[listaZ2Rd8, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
I19 = Element(Element[listaZ4, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
J19 = Element(Element[listaZ42, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
K19 = Element(Element[listaZR4, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
L19 = Element(Element[listaZR42, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
M19 = Element(Element[listaZ3, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
N19 = Element(Element[listaZ3', 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
O19 = Element(Element[listaZR3, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
P19 = Element(Element[listaZR3', 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
Q19 = Element(Element[listaZ6, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
R19 = Element(Element[listaZ6', 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
S19 = Element(Element[listaZR6, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
T19 = Element(Element[listaZR6', 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
C20 = Element(Element[listaZ2, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
D20 = Element(Element[listaZR, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
E20 = Element(Element[listaZR2, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
F20 = Element(Element[listaZRd6, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
G20 = Element(Element[listaZRD8, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
H20 = Element(Element[listaZ2Rd8, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
I20 = Element(Element[listaZ4, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
J20 = Element(Element[listaZ42, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
K20 = Element(Element[listaZR4, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
L20 = Element(Element[listaZR42, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
M20 = Element(Element[listaZ3, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
N20 = Element(Element[listaZ3', 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
O20 = Element(Element[listaZR3, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
P20 = Element(Element[listaZR3', 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
Q20 = Element(Element[listaZ6, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
R20 = Element(Element[listaZ6', 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
S20 = Element(Element[listaZR6, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
T20 = Element(Element[listaZR6', 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
C21 = Element(Element[listaZ2, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
D21 = Element(Element[listaZR, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
E21 = Element(Element[listaZR2, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
F21 = Element(Element[listaZRd6, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
G21 = Element(Element[listaZRD8, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
H21 = Element(Element[listaZ2Rd8, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
I21 = Element(Element[listaZ4, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
J21 = Element(Element[listaZ42, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
K21 = Element(Element[listaZR4, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
L21 = Element(Element[listaZR42, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
M21 = Element(Element[listaZ3, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
N21 = Element(Element[listaZ3', 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
O21 = Element(Element[listaZR3, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
P21 = Element(Element[listaZR3', 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
Q21 = Element(Element[listaZ6, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
R21 = Element(Element[listaZ6', 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
S21 = Element(Element[listaZR6, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
T21 = Element(Element[listaZR6', 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
C22 = Element(Element[listaZ2, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
D22 = Element(Element[listaZR, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
E22 = Element(Element[listaZR2, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
F22 = Element(Element[listaZRd6, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
G22 = Element(Element[listaZRD8, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
H22 = Element(Element[listaZ2Rd8, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
I22 = Element(Element[listaZ4, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
J22 = Element(Element[listaZ42, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
K22 = Element(Element[listaZR4, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
L22 = Element(Element[listaZR42, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
M22 = Element(Element[listaZ3, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
N22 = Element(Element[listaZ3', 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
O22 = Element(Element[listaZR3, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
P22 = Element(Element[listaZR3', 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
Q22 = Element(Element[listaZ6, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
R22 = Element(Element[listaZ6', 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
S22 = Element(Element[listaZR6, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
T22 = Element(Element[listaZR6', 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
C23 = Element(Element[listaZ2, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
D23 = Element(Element[listaZR, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
E23 = Element(Element[listaZR2, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
F23 = Element(Element[listaZRd6, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
G23 = Element(Element[listaZRD8, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
H23 = Element(Element[listaZ2Rd8, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
I23 = Element(Element[listaZ4, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
J23 = Element(Element[listaZ42, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
K23 = Element(Element[listaZR4, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
L23 = Element(Element[listaZR42, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
M23 = Element(Element[listaZ3, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
N23 = Element(Element[listaZ3', 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
O23 = Element(Element[listaZR3, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
P23 = Element(Element[listaZR3', 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
Q23 = Element(Element[listaZ6, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
R23 = Element(Element[listaZ6', 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
S23 = Element(Element[listaZR6, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
T23 = Element(Element[listaZR6', 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
C24 = Element(Element[listaZ2, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
D24 = Element(Element[listaZR, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
E24 = Element(Element[listaZR2, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
F24 = Element(Element[listaZRd6, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
G24 = Element(Element[listaZRD8, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
H24 = Element(Element[listaZ2Rd8, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
I24 = Element(Element[listaZ4, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
J24 = Element(Element[listaZ42, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
K24 = Element(Element[listaZR4, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
L24 = Element(Element[listaZR42, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
M24 = Element(Element[listaZ3, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
N24 = Element(Element[listaZ3', 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
O24 = Element(Element[listaZR3, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
P24 = Element(Element[listaZR3', 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
Q24 = Element(Element[listaZ6, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
R24 = Element(Element[listaZ6', 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
S24 = Element(Element[listaZR6, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
T24 = Element(Element[listaZR6', 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
C25 = Element(Element[listaZ2, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
D25 = Element(Element[listaZR, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
E25 = Element(Element[listaZR2, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
F25 = Element(Element[listaZRd6, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
G25 = Element(Element[listaZRD8, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
H25 = Element(Element[listaZ2Rd8, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
I25 = Element(Element[listaZ4, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
J25 = Element(Element[listaZ42, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
K25 = Element(Element[listaZR4, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
L25 = Element(Element[listaZR42, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
M25 = Element(Element[listaZ3, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
N25 = Element(Element[listaZ3', 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
O25 = Element(Element[listaZR3, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
P25 = Element(Element[listaZR3', 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
Q25 = Element(Element[listaZ6, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
R25 = Element(Element[listaZ6', 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
S25 = Element(Element[listaZR6, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
T25 = Element(Element[listaZR6', 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
C26 = Element(Element[listaZ2, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
D26 = Element(Element[listaZR, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
E26 = Element(Element[listaZR2, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
F26 = Element(Element[listaZRd6, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
G26 = Element(Element[listaZRD8, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
H26 = Element(Element[listaZ2Rd8, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
I26 = Element(Element[listaZ4, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
J26 = Element(Element[listaZ42, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
K26 = Element(Element[listaZR4, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
L26 = Element(Element[listaZR42, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
M26 = Element(Element[listaZ3, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
N26 = Element(Element[listaZ3', 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
O26 = Element(Element[listaZR3, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
P26 = Element(Element[listaZR3', 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
Q26 = Element(Element[listaZ6, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
R26 = Element(Element[listaZ6', 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
S26 = Element(Element[listaZR6, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
T26 = Element(Element[listaZR6', 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
C27 = Element(Element[listaZ2, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
D27 = Element(Element[listaZR, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
E27 = Element(Element[listaZR2, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
F27 = Element(Element[listaZRd6, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
G27 = Element(Element[listaZRD8, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
H27 = Element(Element[listaZ2Rd8, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
I27 = Element(Element[listaZ4, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
J27 = Element(Element[listaZ42, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
K27 = Element(Element[listaZR4, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
L27 = Element(Element[listaZR42, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
M27 = Element(Element[listaZ3, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
N27 = Element(Element[listaZ3', 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
O27 = Element(Element[listaZR3, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
P27 = Element(Element[listaZR3', 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
Q27 = Element(Element[listaZ6, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
R27 = Element(Element[listaZ6', 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
S27 = Element(Element[listaZR6, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
T27 = Element(Element[listaZR6', 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
C28 = Element(Element[listaZ2, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
D28 = Element(Element[listaZR, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
E28 = Element(Element[listaZR2, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
F28 = Element(Element[listaZRd6, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
G28 = Element(Element[listaZRD8, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
H28 = Element(Element[listaZ2Rd8, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
I28 = Element(Element[listaZ4, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
J28 = Element(Element[listaZ42, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
K28 = Element(Element[listaZR4, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
L28 = Element(Element[listaZR42, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
M28 = Element(Element[listaZ3, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
N28 = Element(Element[listaZ3', 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
O28 = Element(Element[listaZR3, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
P28 = Element(Element[listaZR3', 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
Q28 = Element(Element[listaZ6, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
R28 = Element(Element[listaZ6', 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
S28 = Element(Element[listaZR6, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
T28 = Element(Element[listaZR6', 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
C29 = Element(Element[listaZ2, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
D29 = Element(Element[listaZR, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
E29 = Element(Element[listaZR2, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
F29 = Element(Element[listaZRd6, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
G29 = Element(Element[listaZRD8, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
H29 = Element(Element[listaZ2Rd8, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
I29 = Element(Element[listaZ4, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
J29 = Element(Element[listaZ42, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
K29 = Element(Element[listaZR4, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
L29 = Element(Element[listaZR42, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
M29 = Element(Element[listaZ3, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
N29 = Element(Element[listaZ3', 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
O29 = Element(Element[listaZR3, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
P29 = Element(Element[listaZR3', 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
Q29 = Element(Element[listaZ6, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
R29 = Element(Element[listaZ6', 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
S29 = Element(Element[listaZR6, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
T29 = Element(Element[listaZR6', 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
C30 = Element(Element[listaZ2, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
D30 = Element(Element[listaZR, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
E30 = Element(Element[listaZR2, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
F30 = Element(Element[listaZRd6, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
G30 = Element(Element[listaZRD8, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
H30 = Element(Element[listaZ2Rd8, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
I30 = Element(Element[listaZ4, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
J30 = Element(Element[listaZ42, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
K30 = Element(Element[listaZR4, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
L30 = Element(Element[listaZR42, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
M30 = Element(Element[listaZ3, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
N30 = Element(Element[listaZ3', 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
O30 = Element(Element[listaZR3, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
P30 = Element(Element[listaZR3', 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
Q30 = Element(Element[listaZ6, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
R30 = Element(Element[listaZ6', 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
S30 = Element(Element[listaZR6, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
T30 = Element(Element[listaZR6', 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
C31 = Element(Element[listaZ2, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
D31 = Element(Element[listaZR, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
E31 = Element(Element[listaZR2, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
F31 = Element(Element[listaZRd6, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
G31 = Element(Element[listaZRD8, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
H31 = Element(Element[listaZ2Rd8, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
I31 = Element(Element[listaZ4, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
J31 = Element(Element[listaZ42, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
K31 = Element(Element[listaZR4, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
L31 = Element(Element[listaZR42, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
M31 = Element(Element[listaZ3, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
N31 = Element(Element[listaZ3', 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
O31 = Element(Element[listaZR3, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
P31 = Element(Element[listaZR3', 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
Q31 = Element(Element[listaZ6, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
R31 = Element(Element[listaZ6', 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
S31 = Element(Element[listaZR6, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
T31 = Element(Element[listaZR6', 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
C32 = Element(Element[listaZ2, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
D32 = Element(Element[listaZR, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
E32 = Element(Element[listaZR2, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
F32 = Element(Element[listaZRd6, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
G32 = Element(Element[listaZRD8, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
H32 = Element(Element[listaZ2Rd8, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
I32 = Element(Element[listaZ4, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
J32 = Element(Element[listaZ42, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
K32 = Element(Element[listaZR4, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
L32 = Element(Element[listaZR42, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
M32 = Element(Element[listaZ3, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
N32 = Element(Element[listaZ3', 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
O32 = Element(Element[listaZR3, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
P32 = Element(Element[listaZR3', 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
Q32 = Element(Element[listaZ6, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
R32 = Element(Element[listaZ6', 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
S32 = Element(Element[listaZR6, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
T32 = Element(Element[listaZR6', 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
C33 = Element(Element[listaZ2, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
D33 = Element(Element[listaZR, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
E33 = Element(Element[listaZR2, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
F33 = Element(Element[listaZRd6, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
G33 = Element(Element[listaZRD8, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
H33 = Element(Element[listaZ2Rd8, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
I33 = Element(Element[listaZ4, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
J33 = Element(Element[listaZ42, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
K33 = Element(Element[listaZR4, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
L33 = Element(Element[listaZR42, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
M33 = Element(Element[listaZ3, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
N33 = Element(Element[listaZ3', 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
O33 = Element(Element[listaZR3, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
P33 = Element(Element[listaZR3', 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
Q33 = Element(Element[listaZ6, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
R33 = Element(Element[listaZ6', 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
S33 = Element(Element[listaZR6, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
T33 = Element(Element[listaZR6', 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
C34 = Element(Element[listaZ2, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
D34 = Element(Element[listaZR, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
E34 = Element(Element[listaZR2, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
F34 = Element(Element[listaZRd6, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
G34 = Element(Element[listaZRD8, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
H34 = Element(Element[listaZ2Rd8, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
I34 = Element(Element[listaZ4, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
J34 = Element(Element[listaZ42, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
K34 = Element(Element[listaZR4, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
L34 = Element(Element[listaZR42, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
M34 = Element(Element[listaZ3, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
N34 = Element(Element[listaZ3', 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
O34 = Element(Element[listaZR3, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
P34 = Element(Element[listaZR3', 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
Q34 = Element(Element[listaZ6, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
R34 = Element(Element[listaZ6', 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
S34 = Element(Element[listaZR6, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
T34 = Element(Element[listaZR6', 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
C35 = Element(Element[listaZ2, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
D35 = Element(Element[listaZR, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
E35 = Element(Element[listaZR2, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
F35 = Element(Element[listaZRd6, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
G35 = Element(Element[listaZRD8, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
H35 = Element(Element[listaZ2Rd8, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
I35 = Element(Element[listaZ4, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
J35 = Element(Element[listaZ42, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
K35 = Element(Element[listaZR4, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
L35 = Element(Element[listaZR42, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
M35 = Element(Element[listaZ3, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
N35 = Element(Element[listaZ3', 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
O35 = Element(Element[listaZR3, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
P35 = Element(Element[listaZR3', 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
Q35 = Element(Element[listaZ6, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
R35 = Element(Element[listaZ6', 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
S35 = Element(Element[listaZR6, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
T35 = Element(Element[listaZR6', 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
C36 = Element(Element[listaZ2, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
D36 = Element(Element[listaZR, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
E36 = Element(Element[listaZR2, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
F36 = Element(Element[listaZRd6, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
G36 = Element(Element[listaZRD8, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
H36 = Element(Element[listaZ2Rd8, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
I36 = Element(Element[listaZ4, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
J36 = Element(Element[listaZ42, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
K36 = Element(Element[listaZR4, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
L36 = Element(Element[listaZR42, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
M36 = Element(Element[listaZ3, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
N36 = Element(Element[listaZ3', 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
O36 = Element(Element[listaZR3, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
P36 = Element(Element[listaZR3', 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
Q36 = Element(Element[listaZ6, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
R36 = Element(Element[listaZ6', 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
S36 = Element(Element[listaZR6, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
T36 = Element(Element[listaZR6', 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
C37 = Element(Element[listaZ2, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
D37 = Element(Element[listaZR, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
E37 = Element(Element[listaZR2, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
F37 = Element(Element[listaZRd6, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
G37 = Element(Element[listaZRD8, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
H37 = Element(Element[listaZ2Rd8, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
I37 = Element(Element[listaZ4, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
J37 = Element(Element[listaZ42, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
K37 = Element(Element[listaZR4, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
L37 = Element(Element[listaZR42, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
M37 = Element(Element[listaZ3, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
N37 = Element(Element[listaZ3', 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
O37 = Element(Element[listaZR3, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
P37 = Element(Element[listaZR3', 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
Q37 = Element(Element[listaZ6, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
R37 = Element(Element[listaZ6', 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
S37 = Element(Element[listaZR6, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
T37 = Element(Element[listaZR6', 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
C38 = Element(Element[listaZ2, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
D38 = Element(Element[listaZR, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
E38 = Element(Element[listaZR2, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
F38 = Element(Element[listaZRd6, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
G38 = Element(Element[listaZRD8, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
H38 = Element(Element[listaZ2Rd8, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
I38 = Element(Element[listaZ4, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
J38 = Element(Element[listaZ42, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
K38 = Element(Element[listaZR4, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
L38 = Element(Element[listaZR42, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
M38 = Element(Element[listaZ3, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
N38 = Element(Element[listaZ3', 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
O38 = Element(Element[listaZR3, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
P38 = Element(Element[listaZR3', 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
Q38 = Element(Element[listaZ6, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
R38 = Element(Element[listaZ6', 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
S38 = Element(Element[listaZR6, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
T38 = Element(Element[listaZR6', 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
C39 = Element(Element[listaZ2, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
D39 = Element(Element[listaZR, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
E39 = Element(Element[listaZR2, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
F39 = Element(Element[listaZRd6, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
G39 = Element(Element[listaZRD8, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
H39 = Element(Element[listaZ2Rd8, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
I39 = Element(Element[listaZ4, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
J39 = Element(Element[listaZ42, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
K39 = Element(Element[listaZR4, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
L39 = Element(Element[listaZR42, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
M39 = Element(Element[listaZ3, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
N39 = Element(Element[listaZ3', 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
O39 = Element(Element[listaZR3, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
P39 = Element(Element[listaZR3', 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
Q39 = Element(Element[listaZ6, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
R39 = Element(Element[listaZ6', 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
S39 = Element(Element[listaZR6, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
T39 = Element(Element[listaZR6', 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
C40 = Element(Element[listaZ2, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
D40 = Element(Element[listaZR, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
E40 = Element(Element[listaZR2, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
F40 = Element(Element[listaZRd6, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
G40 = Element(Element[listaZRD8, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
H40 = Element(Element[listaZ2Rd8, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
I40 = Element(Element[listaZ4, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
J40 = Element(Element[listaZ42, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
K40 = Element(Element[listaZR4, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
L40 = Element(Element[listaZR42, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
M40 = Element(Element[listaZ3, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
N40 = Element(Element[listaZ3', 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
O40 = Element(Element[listaZR3, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
P40 = Element(Element[listaZR3', 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
Q40 = Element(Element[listaZ6, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
R40 = Element(Element[listaZ6', 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
S40 = Element(Element[listaZR6, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
T40 = Element(Element[listaZR6', 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
C41 = Element(Element[listaZ2, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
D41 = Element(Element[listaZR, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
E41 = Element(Element[listaZR2, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
F41 = Element(Element[listaZRd6, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
G41 = Element(Element[listaZRD8, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
H41 = Element(Element[listaZ2Rd8, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
I41 = Element(Element[listaZ4, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
J41 = Element(Element[listaZ42, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
K41 = Element(Element[listaZR4, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
L41 = Element(Element[listaZR42, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
M41 = Element(Element[listaZ3, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
N41 = Element(Element[listaZ3', 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
O41 = Element(Element[listaZR3, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
P41 = Element(Element[listaZR3', 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
Q41 = Element(Element[listaZ6, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
R41 = Element(Element[listaZ6', 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
S41 = Element(Element[listaZR6, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
T41 = Element(Element[listaZR6', 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
C42 = Element(Element[listaZ2, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
D42 = Element(Element[listaZR, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
E42 = Element(Element[listaZR2, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
F42 = Element(Element[listaZRd6, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
G42 = Element(Element[listaZRD8, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
H42 = Element(Element[listaZ2Rd8, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
I42 = Element(Element[listaZ4, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
J42 = Element(Element[listaZ42, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
K42 = Element(Element[listaZR4, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
L42 = Element(Element[listaZR42, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
M42 = Element(Element[listaZ3, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
N42 = Element(Element[listaZ3', 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
O42 = Element(Element[listaZR3, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
P42 = Element(Element[listaZR3', 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
Q42 = Element(Element[listaZ6, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
R42 = Element(Element[listaZ6', 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
S42 = Element(Element[listaZR6, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
T42 = Element(Element[listaZR6', 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
C43 = Element(Element[listaZ2, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
D43 = Element(Element[listaZR, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
E43 = Element(Element[listaZR2, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
F43 = Element(Element[listaZRd6, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
G43 = Element(Element[listaZRD8, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
H43 = Element(Element[listaZ2Rd8, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
I43 = Element(Element[listaZ4, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
J43 = Element(Element[listaZ42, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
K43 = Element(Element[listaZR4, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
L43 = Element(Element[listaZR42, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
M43 = Element(Element[listaZ3, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
N43 = Element(Element[listaZ3', 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
O43 = Element(Element[listaZR3, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
P43 = Element(Element[listaZR3', 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
Q43 = Element(Element[listaZ6, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
R43 = Element(Element[listaZ6', 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
S43 = Element(Element[listaZR6, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
T43 = Element(Element[listaZR6', 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
C44 = Element(Element[listaZ2, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
D44 = Element(Element[listaZR, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
E44 = Element(Element[listaZR2, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
F44 = Element(Element[listaZRd6, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
G44 = Element(Element[listaZRD8, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
H44 = Element(Element[listaZ2Rd8, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
I44 = Element(Element[listaZ4, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
J44 = Element(Element[listaZ42, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
K44 = Element(Element[listaZR4, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
L44 = Element(Element[listaZR42, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
M44 = Element(Element[listaZ3, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
N44 = Element(Element[listaZ3', 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
O44 = Element(Element[listaZR3, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
P44 = Element(Element[listaZR3', 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
Q44 = Element(Element[listaZ6, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
R44 = Element(Element[listaZ6', 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
S44 = Element(Element[listaZR6, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
T44 = Element(Element[listaZR6', 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
C45 = Element(Element[listaZ2, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
D45 = Element(Element[listaZR, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
E45 = Element(Element[listaZR2, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
F45 = Element(Element[listaZRd6, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
G45 = Element(Element[listaZRD8, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
H45 = Element(Element[listaZ2Rd8, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
I45 = Element(Element[listaZ4, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
J45 = Element(Element[listaZ42, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
K45 = Element(Element[listaZR4, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
L45 = Element(Element[listaZR42, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
M45 = Element(Element[listaZ3, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
N45 = Element(Element[listaZ3', 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
O45 = Element(Element[listaZR3, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
P45 = Element(Element[listaZR3', 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
Q45 = Element(Element[listaZ6, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
R45 = Element(Element[listaZ6', 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
S45 = Element(Element[listaZR6, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
T45 = Element(Element[listaZR6', 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
C46 = Element(Element[listaZ2, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
D46 = Element(Element[listaZR, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
E46 = Element(Element[listaZR2, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
F46 = Element(Element[listaZRd6, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
G46 = Element(Element[listaZRD8, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
H46 = Element(Element[listaZ2Rd8, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
I46 = Element(Element[listaZ4, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
J46 = Element(Element[listaZ42, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
K46 = Element(Element[listaZR4, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
L46 = Element(Element[listaZR42, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
M46 = Element(Element[listaZ3, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
N46 = Element(Element[listaZ3', 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
O46 = Element(Element[listaZR3, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
P46 = Element(Element[listaZR3', 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
Q46 = Element(Element[listaZ6, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
R46 = Element(Element[listaZ6', 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
S46 = Element(Element[listaZR6, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
T46 = Element(Element[listaZR6', 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
C47 = Element(Element[listaZ2, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
D47 = Element(Element[listaZR, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
E47 = Element(Element[listaZR2, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
F47 = Element(Element[listaZRd6, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
G47 = Element(Element[listaZRD8, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
H47 = Element(Element[listaZ2Rd8, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
I47 = Element(Element[listaZ4, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
J47 = Element(Element[listaZ42, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
K47 = Element(Element[listaZR4, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
L47 = Element(Element[listaZR42, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
M47 = Element(Element[listaZ3, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
N47 = Element(Element[listaZ3', 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
O47 = Element(Element[listaZR3, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
P47 = Element(Element[listaZR3', 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
Q47 = Element(Element[listaZ6, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
R47 = Element(Element[listaZ6', 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
S47 = Element(Element[listaZR6, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
T47 = Element(Element[listaZR6', 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
C48 = Element(Element[listaZ2, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
D48 = Element(Element[listaZR, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
E48 = Element(Element[listaZR2, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
F48 = Element(Element[listaZRd6, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
G48 = Element(Element[listaZRD8, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
H48 = Element(Element[listaZ2Rd8, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
I48 = Element(Element[listaZ4, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
J48 = Element(Element[listaZ42, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
K48 = Element(Element[listaZR4, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
L48 = Element(Element[listaZR42, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
M48 = Element(Element[listaZ3, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
N48 = Element(Element[listaZ3', 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
O48 = Element(Element[listaZR3, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
P48 = Element(Element[listaZR3', 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
Q48 = Element(Element[listaZ6, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
R48 = Element(Element[listaZ6', 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
S48 = Element(Element[listaZR6, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
T48 = Element(Element[listaZR6', 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
C49 = Element(Element[listaZ2, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
D49 = Element(Element[listaZR, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
E49 = Element(Element[listaZR2, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
F49 = Element(Element[listaZRd6, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
G49 = Element(Element[listaZRD8, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
H49 = Element(Element[listaZ2Rd8, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
I49 = Element(Element[listaZ4, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
J49 = Element(Element[listaZ42, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
K49 = Element(Element[listaZR4, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
L49 = Element(Element[listaZR42, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
M49 = Element(Element[listaZ3, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
N49 = Element(Element[listaZ3', 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
O49 = Element(Element[listaZR3, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
P49 = Element(Element[listaZR3', 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
Q49 = Element(Element[listaZ6, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
R49 = Element(Element[listaZ6', 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
S49 = Element(Element[listaZR6, 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
T49 = Element(Element[listaZR6', 1 + Div[A49, (2 * k) + 1]], 1 + Mod[A49, (2 * k) + 1])
C50 = Element(Element[listaZ2, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
D50 = Element(Element[listaZR, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
E50 = Element(Element[listaZR2, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
F50 = Element(Element[listaZRd6, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
G50 = Element(Element[listaZRD8, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
H50 = Element(Element[listaZ2Rd8, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
I50 = Element(Element[listaZ4, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
J50 = Element(Element[listaZ42, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
K50 = Element(Element[listaZR4, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
L50 = Element(Element[listaZR42, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
M50 = Element(Element[listaZ3, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
N50 = Element(Element[listaZ3', 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
O50 = Element(Element[listaZR3, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
P50 = Element(Element[listaZR3', 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
Q50 = Element(Element[listaZ6, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
R50 = Element(Element[listaZ6', 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
S50 = Element(Element[listaZR6, 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
T50 = Element(Element[listaZR6', 1 + Div[A50, (2 * k) + 1]], 1 + Mod[A50, (2 * k) + 1])
C51 = Element(Element[listaZ2, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
D51 = Element(Element[listaZR, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
E51 = Element(Element[listaZR2, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
F51 = Element(Element[listaZRd6, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
G51 = Element(Element[listaZRD8, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
H51 = Element(Element[listaZ2Rd8, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
I51 = Element(Element[listaZ4, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
J51 = Element(Element[listaZ42, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
K51 = Element(Element[listaZR4, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
L51 = Element(Element[listaZR42, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
M51 = Element(Element[listaZ3, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
N51 = Element(Element[listaZ3', 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
O51 = Element(Element[listaZR3, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
P51 = Element(Element[listaZR3', 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
Q51 = Element(Element[listaZ6, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
R51 = Element(Element[listaZ6', 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
S51 = Element(Element[listaZR6, 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
T51 = Element(Element[listaZR6', 1 + Div[A51, (2 * k) + 1]], 1 + Mod[A51, (2 * k) + 1])
C52 = Element(Element[listaZ2, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
D52 = Element(Element[listaZR, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
E52 = Element(Element[listaZR2, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
F52 = Element(Element[listaZRd6, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
G52 = Element(Element[listaZRD8, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
H52 = Element(Element[listaZ2Rd8, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
I52 = Element(Element[listaZ4, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
J52 = Element(Element[listaZ42, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
K52 = Element(Element[listaZR4, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
L52 = Element(Element[listaZR42, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
M52 = Element(Element[listaZ3, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
N52 = Element(Element[listaZ3', 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
O52 = Element(Element[listaZR3, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
P52 = Element(Element[listaZR3', 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
Q52 = Element(Element[listaZ6, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
R52 = Element(Element[listaZ6', 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
S52 = Element(Element[listaZR6, 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
T52 = Element(Element[listaZR6', 1 + Div[A52, (2 * k) + 1]], 1 + Mod[A52, (2 * k) + 1])
C53 = Element(Element[listaZ2, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
D53 = Element(Element[listaZR, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
E53 = Element(Element[listaZR2, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
F53 = Element(Element[listaZRd6, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
G53 = Element(Element[listaZRD8, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
H53 = Element(Element[listaZ2Rd8, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
I53 = Element(Element[listaZ4, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
J53 = Element(Element[listaZ42, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
K53 = Element(Element[listaZR4, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
L53 = Element(Element[listaZR42, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
M53 = Element(Element[listaZ3, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
N53 = Element(Element[listaZ3', 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
O53 = Element(Element[listaZR3, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
P53 = Element(Element[listaZR3', 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
Q53 = Element(Element[listaZ6, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
R53 = Element(Element[listaZ6', 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
S53 = Element(Element[listaZR6, 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
T53 = Element(Element[listaZR6', 1 + Div[A53, (2 * k) + 1]], 1 + Mod[A53, (2 * k) + 1])
C54 = Element(Element[listaZ2, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
D54 = Element(Element[listaZR, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
E54 = Element(Element[listaZR2, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
F54 = Element(Element[listaZRd6, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
G54 = Element(Element[listaZRD8, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
H54 = Element(Element[listaZ2Rd8, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
I54 = Element(Element[listaZ4, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
J54 = Element(Element[listaZ42, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
K54 = Element(Element[listaZR4, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
L54 = Element(Element[listaZR42, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
M54 = Element(Element[listaZ3, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
N54 = Element(Element[listaZ3', 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
O54 = Element(Element[listaZR3, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
P54 = Element(Element[listaZR3', 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
Q54 = Element(Element[listaZ6, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
R54 = Element(Element[listaZ6', 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
S54 = Element(Element[listaZR6, 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
T54 = Element(Element[listaZR6', 1 + Div[A54, (2 * k) + 1]], 1 + Mod[A54, (2 * k) + 1])
C55 = Element(Element[listaZ2, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
D55 = Element(Element[listaZR, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
E55 = Element(Element[listaZR2, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
F55 = Element(Element[listaZRd6, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
G55 = Element(Element[listaZRD8, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
H55 = Element(Element[listaZ2Rd8, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
I55 = Element(Element[listaZ4, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
J55 = Element(Element[listaZ42, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
K55 = Element(Element[listaZR4, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
L55 = Element(Element[listaZR42, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
M55 = Element(Element[listaZ3, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
N55 = Element(Element[listaZ3', 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
O55 = Element(Element[listaZR3, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
P55 = Element(Element[listaZR3', 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
Q55 = Element(Element[listaZ6, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
R55 = Element(Element[listaZ6', 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
S55 = Element(Element[listaZR6, 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
T55 = Element(Element[listaZR6', 1 + Div[A55, (2 * k) + 1]], 1 + Mod[A55, (2 * k) + 1])
C56 = Element(Element[listaZ2, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
D56 = Element(Element[listaZR, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
E56 = Element(Element[listaZR2, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
F56 = Element(Element[listaZRd6, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
G56 = Element(Element[listaZRD8, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
H56 = Element(Element[listaZ2Rd8, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
I56 = Element(Element[listaZ4, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
J56 = Element(Element[listaZ42, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
K56 = Element(Element[listaZR4, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
L56 = Element(Element[listaZR42, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
M56 = Element(Element[listaZ3, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
N56 = Element(Element[listaZ3', 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
O56 = Element(Element[listaZR3, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
P56 = Element(Element[listaZR3', 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
Q56 = Element(Element[listaZ6, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
R56 = Element(Element[listaZ6', 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
S56 = Element(Element[listaZR6, 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
T56 = Element(Element[listaZR6', 1 + Div[A56, (2 * k) + 1]], 1 + Mod[A56, (2 * k) + 1])
C57 = Element(Element[listaZ2, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
D57 = Element(Element[listaZR, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
E57 = Element(Element[listaZR2, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
F57 = Element(Element[listaZRd6, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
G57 = Element(Element[listaZRD8, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
H57 = Element(Element[listaZ2Rd8, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
I57 = Element(Element[listaZ4, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
J57 = Element(Element[listaZ42, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
K57 = Element(Element[listaZR4, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
L57 = Element(Element[listaZR42, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
M57 = Element(Element[listaZ3, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
N57 = Element(Element[listaZ3', 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
O57 = Element(Element[listaZR3, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
P57 = Element(Element[listaZR3', 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
Q57 = Element(Element[listaZ6, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
R57 = Element(Element[listaZ6', 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
S57 = Element(Element[listaZR6, 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
T57 = Element(Element[listaZR6', 1 + Div[A57, (2 * k) + 1]], 1 + Mod[A57, (2 * k) + 1])
C58 = Element(Element[listaZ2, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
D58 = Element(Element[listaZR, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
E58 = Element(Element[listaZR2, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
F58 = Element(Element[listaZRd6, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
G58 = Element(Element[listaZRD8, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
H58 = Element(Element[listaZ2Rd8, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
I58 = Element(Element[listaZ4, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
J58 = Element(Element[listaZ42, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
K58 = Element(Element[listaZR4, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
L58 = Element(Element[listaZR42, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
M58 = Element(Element[listaZ3, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
N58 = Element(Element[listaZ3', 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
O58 = Element(Element[listaZR3, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
P58 = Element(Element[listaZR3', 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
Q58 = Element(Element[listaZ6, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
R58 = Element(Element[listaZ6', 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
S58 = Element(Element[listaZR6, 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
T58 = Element(Element[listaZR6', 1 + Div[A58, (2 * k) + 1]], 1 + Mod[A58, (2 * k) + 1])
C59 = Element(Element[listaZ2, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
D59 = Element(Element[listaZR, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
E59 = Element(Element[listaZR2, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
F59 = Element(Element[listaZRd6, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
G59 = Element(Element[listaZRD8, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
H59 = Element(Element[listaZ2Rd8, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
I59 = Element(Element[listaZ4, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
J59 = Element(Element[listaZ42, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
K59 = Element(Element[listaZR4, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
L59 = Element(Element[listaZR42, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
M59 = Element(Element[listaZ3, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
N59 = Element(Element[listaZ3', 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
O59 = Element(Element[listaZR3, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
P59 = Element(Element[listaZR3', 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
Q59 = Element(Element[listaZ6, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
R59 = Element(Element[listaZ6', 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
S59 = Element(Element[listaZR6, 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
T59 = Element(Element[listaZR6', 1 + Div[A59, (2 * k) + 1]], 1 + Mod[A59, (2 * k) + 1])
C60 = Element(Element[listaZ2, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
D60 = Element(Element[listaZR, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
E60 = Element(Element[listaZR2, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
F60 = Element(Element[listaZRd6, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
G60 = Element(Element[listaZRD8, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
H60 = Element(Element[listaZ2Rd8, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
I60 = Element(Element[listaZ4, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
J60 = Element(Element[listaZ42, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
K60 = Element(Element[listaZR4, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
L60 = Element(Element[listaZR42, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
M60 = Element(Element[listaZ3, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
N60 = Element(Element[listaZ3', 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
O60 = Element(Element[listaZR3, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
P60 = Element(Element[listaZR3', 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
Q60 = Element(Element[listaZ6, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
R60 = Element(Element[listaZ6', 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
S60 = Element(Element[listaZR6, 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
T60 = Element(Element[listaZR6', 1 + Div[A60, (2 * k) + 1]], 1 + Mod[A60, (2 * k) + 1])
C61 = Element(Element[listaZ2, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
D61 = Element(Element[listaZR, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
E61 = Element(Element[listaZR2, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
F61 = Element(Element[listaZRd6, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
G61 = Element(Element[listaZRD8, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
H61 = Element(Element[listaZ2Rd8, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
I61 = Element(Element[listaZ4, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
J61 = Element(Element[listaZ42, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
K61 = Element(Element[listaZR4, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
L61 = Element(Element[listaZR42, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
M61 = Element(Element[listaZ3, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
N61 = Element(Element[listaZ3', 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
O61 = Element(Element[listaZR3, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
P61 = Element(Element[listaZR3', 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
Q61 = Element(Element[listaZ6, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
R61 = Element(Element[listaZ6', 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
S61 = Element(Element[listaZR6, 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
T61 = Element(Element[listaZR6', 1 + Div[A61, (2 * k) + 1]], 1 + Mod[A61, (2 * k) + 1])
C62 = Element(Element[listaZ2, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
D62 = Element(Element[listaZR, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
E62 = Element(Element[listaZR2, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
F62 = Element(Element[listaZRd6, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
G62 = Element(Element[listaZRD8, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
H62 = Element(Element[listaZ2Rd8, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
I62 = Element(Element[listaZ4, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
J62 = Element(Element[listaZ42, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
K62 = Element(Element[listaZR4, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
L62 = Element(Element[listaZR42, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
M62 = Element(Element[listaZ3, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
N62 = Element(Element[listaZ3', 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
O62 = Element(Element[listaZR3, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
P62 = Element(Element[listaZR3', 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
Q62 = Element(Element[listaZ6, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
R62 = Element(Element[listaZ6', 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
S62 = Element(Element[listaZR6, 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
T62 = Element(Element[listaZR6', 1 + Div[A62, (2 * k) + 1]], 1 + Mod[A62, (2 * k) + 1])
C63 = Element(Element[listaZ2, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
D63 = Element(Element[listaZR, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
E63 = Element(Element[listaZR2, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
F63 = Element(Element[listaZRd6, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
G63 = Element(Element[listaZRD8, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
H63 = Element(Element[listaZ2Rd8, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
I63 = Element(Element[listaZ4, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
J63 = Element(Element[listaZ42, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
K63 = Element(Element[listaZR4, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
L63 = Element(Element[listaZR42, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
M63 = Element(Element[listaZ3, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
N63 = Element(Element[listaZ3', 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
O63 = Element(Element[listaZR3, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
P63 = Element(Element[listaZR3', 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
Q63 = Element(Element[listaZ6, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
R63 = Element(Element[listaZ6', 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
S63 = Element(Element[listaZR6, 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
T63 = Element(Element[listaZR6', 1 + Div[A63, (2 * k) + 1]], 1 + Mod[A63, (2 * k) + 1])
C64 = Element(Element[listaZ2, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
D64 = Element(Element[listaZR, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
E64 = Element(Element[listaZR2, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
F64 = Element(Element[listaZRd6, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
G64 = Element(Element[listaZRD8, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
H64 = Element(Element[listaZ2Rd8, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
I64 = Element(Element[listaZ4, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
J64 = Element(Element[listaZ42, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
K64 = Element(Element[listaZR4, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
L64 = Element(Element[listaZR42, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
M64 = Element(Element[listaZ3, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
N64 = Element(Element[listaZ3', 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
O64 = Element(Element[listaZR3, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
P64 = Element(Element[listaZR3', 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
Q64 = Element(Element[listaZ6, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
R64 = Element(Element[listaZ6', 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
S64 = Element(Element[listaZR6, 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
T64 = Element(Element[listaZR6', 1 + Div[A64, (2 * k) + 1]], 1 + Mod[A64, (2 * k) + 1])
C65 = Element(Element[listaZ2, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
D65 = Element(Element[listaZR, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
E65 = Element(Element[listaZR2, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
F65 = Element(Element[listaZRd6, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
G65 = Element(Element[listaZRD8, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
H65 = Element(Element[listaZ2Rd8, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
I65 = Element(Element[listaZ4, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
J65 = Element(Element[listaZ42, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
K65 = Element(Element[listaZR4, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
L65 = Element(Element[listaZR42, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
M65 = Element(Element[listaZ3, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
N65 = Element(Element[listaZ3', 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
O65 = Element(Element[listaZR3, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
P65 = Element(Element[listaZR3', 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
Q65 = Element(Element[listaZ6, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
R65 = Element(Element[listaZ6', 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
S65 = Element(Element[listaZR6, 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
T65 = Element(Element[listaZR6', 1 + Div[A65, (2 * k) + 1]], 1 + Mod[A65, (2 * k) + 1])
C66 = Element(Element[listaZ2, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
D66 = Element(Element[listaZR, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
E66 = Element(Element[listaZR2, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
F66 = Element(Element[listaZRd6, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
G66 = Element(Element[listaZRD8, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
H66 = Element(Element[listaZ2Rd8, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
I66 = Element(Element[listaZ4, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
J66 = Element(Element[listaZ42, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
K66 = Element(Element[listaZR4, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
L66 = Element(Element[listaZR42, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
M66 = Element(Element[listaZ3, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
N66 = Element(Element[listaZ3', 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
O66 = Element(Element[listaZR3, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
P66 = Element(Element[listaZR3', 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
Q66 = Element(Element[listaZ6, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
R66 = Element(Element[listaZ6', 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
S66 = Element(Element[listaZR6, 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
T66 = Element(Element[listaZR6', 1 + Div[A66, (2 * k) + 1]], 1 + Mod[A66, (2 * k) + 1])
C67 = Element(Element[listaZ2, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
D67 = Element(Element[listaZR, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
E67 = Element(Element[listaZR2, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
F67 = Element(Element[listaZRd6, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
G67 = Element(Element[listaZRD8, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
H67 = Element(Element[listaZ2Rd8, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
I67 = Element(Element[listaZ4, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
J67 = Element(Element[listaZ42, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
K67 = Element(Element[listaZR4, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
L67 = Element(Element[listaZR42, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
M67 = Element(Element[listaZ3, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
N67 = Element(Element[listaZ3', 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
O67 = Element(Element[listaZR3, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
P67 = Element(Element[listaZR3', 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
Q67 = Element(Element[listaZ6, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
R67 = Element(Element[listaZ6', 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
S67 = Element(Element[listaZR6, 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
T67 = Element(Element[listaZR6', 1 + Div[A67, (2 * k) + 1]], 1 + Mod[A67, (2 * k) + 1])
C68 = Element(Element[listaZ2, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
D68 = Element(Element[listaZR, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
E68 = Element(Element[listaZR2, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
F68 = Element(Element[listaZRd6, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
G68 = Element(Element[listaZRD8, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
H68 = Element(Element[listaZ2Rd8, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
I68 = Element(Element[listaZ4, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
J68 = Element(Element[listaZ42, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
K68 = Element(Element[listaZR4, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
L68 = Element(Element[listaZR42, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
M68 = Element(Element[listaZ3, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
N68 = Element(Element[listaZ3', 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
O68 = Element(Element[listaZR3, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
P68 = Element(Element[listaZR3', 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
Q68 = Element(Element[listaZ6, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
R68 = Element(Element[listaZ6', 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
S68 = Element(Element[listaZR6, 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
T68 = Element(Element[listaZR6', 1 + Div[A68, (2 * k) + 1]], 1 + Mod[A68, (2 * k) + 1])
C69 = Element(Element[listaZ2, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
D69 = Element(Element[listaZR, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
E69 = Element(Element[listaZR2, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
F69 = Element(Element[listaZRd6, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
G69 = Element(Element[listaZRD8, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
H69 = Element(Element[listaZ2Rd8, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
I69 = Element(Element[listaZ4, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
J69 = Element(Element[listaZ42, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
K69 = Element(Element[listaZR4, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
L69 = Element(Element[listaZR42, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
M69 = Element(Element[listaZ3, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
N69 = Element(Element[listaZ3', 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
O69 = Element(Element[listaZR3, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
P69 = Element(Element[listaZR3', 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
Q69 = Element(Element[listaZ6, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
R69 = Element(Element[listaZ6', 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
S69 = Element(Element[listaZR6, 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
T69 = Element(Element[listaZR6', 1 + Div[A69, (2 * k) + 1]], 1 + Mod[A69, (2 * k) + 1])
C70 = Element(Element[listaZ2, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
D70 = Element(Element[listaZR, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
E70 = Element(Element[listaZR2, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
F70 = Element(Element[listaZRd6, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
G70 = Element(Element[listaZRD8, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
H70 = Element(Element[listaZ2Rd8, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
I70 = Element(Element[listaZ4, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
J70 = Element(Element[listaZ42, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
K70 = Element(Element[listaZR4, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
L70 = Element(Element[listaZR42, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
M70 = Element(Element[listaZ3, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
N70 = Element(Element[listaZ3', 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
O70 = Element(Element[listaZR3, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
P70 = Element(Element[listaZR3', 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
Q70 = Element(Element[listaZ6, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
R70 = Element(Element[listaZ6', 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
S70 = Element(Element[listaZR6, 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
T70 = Element(Element[listaZR6', 1 + Div[A70, (2 * k) + 1]], 1 + Mod[A70, (2 * k) + 1])
C71 = Element(Element[listaZ2, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
D71 = Element(Element[listaZR, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
E71 = Element(Element[listaZR2, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
F71 = Element(Element[listaZRd6, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
G71 = Element(Element[listaZRD8, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
H71 = Element(Element[listaZ2Rd8, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
I71 = Element(Element[listaZ4, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
J71 = Element(Element[listaZ42, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
K71 = Element(Element[listaZR4, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
L71 = Element(Element[listaZR42, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
M71 = Element(Element[listaZ3, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
N71 = Element(Element[listaZ3', 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
O71 = Element(Element[listaZR3, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
P71 = Element(Element[listaZR3', 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
Q71 = Element(Element[listaZ6, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
R71 = Element(Element[listaZ6', 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
S71 = Element(Element[listaZR6, 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
T71 = Element(Element[listaZR6', 1 + Div[A71, (2 * k) + 1]], 1 + Mod[A71, (2 * k) + 1])
C72 = Element(Element[listaZ2, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
D72 = Element(Element[listaZR, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
E72 = Element(Element[listaZR2, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
F72 = Element(Element[listaZRd6, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
G72 = Element(Element[listaZRD8, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
H72 = Element(Element[listaZ2Rd8, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
I72 = Element(Element[listaZ4, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
J72 = Element(Element[listaZ42, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
K72 = Element(Element[listaZR4, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
L72 = Element(Element[listaZR42, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
M72 = Element(Element[listaZ3, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
N72 = Element(Element[listaZ3', 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
O72 = Element(Element[listaZR3, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
P72 = Element(Element[listaZR3', 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
Q72 = Element(Element[listaZ6, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
R72 = Element(Element[listaZ6', 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
S72 = Element(Element[listaZR6, 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
T72 = Element(Element[listaZR6', 1 + Div[A72, (2 * k) + 1]], 1 + Mod[A72, (2 * k) + 1])
C73 = Element(Element[listaZ2, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
D73 = Element(Element[listaZR, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
E73 = Element(Element[listaZR2, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
F73 = Element(Element[listaZRd6, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
G73 = Element(Element[listaZRD8, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
H73 = Element(Element[listaZ2Rd8, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
I73 = Element(Element[listaZ4, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
J73 = Element(Element[listaZ42, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
K73 = Element(Element[listaZR4, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
L73 = Element(Element[listaZR42, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
M73 = Element(Element[listaZ3, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
N73 = Element(Element[listaZ3', 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
O73 = Element(Element[listaZR3, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
P73 = Element(Element[listaZR3', 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
Q73 = Element(Element[listaZ6, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
R73 = Element(Element[listaZ6', 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
S73 = Element(Element[listaZR6, 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
T73 = Element(Element[listaZR6', 1 + Div[A73, (2 * k) + 1]], 1 + Mod[A73, (2 * k) + 1])
C74 = Element(Element[listaZ2, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
D74 = Element(Element[listaZR, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
E74 = Element(Element[listaZR2, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
F74 = Element(Element[listaZRd6, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
G74 = Element(Element[listaZRD8, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
H74 = Element(Element[listaZ2Rd8, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
I74 = Element(Element[listaZ4, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
J74 = Element(Element[listaZ42, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
K74 = Element(Element[listaZR4, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
L74 = Element(Element[listaZR42, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
M74 = Element(Element[listaZ3, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
N74 = Element(Element[listaZ3', 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
O74 = Element(Element[listaZR3, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
P74 = Element(Element[listaZR3', 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
Q74 = Element(Element[listaZ6, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
R74 = Element(Element[listaZ6', 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
S74 = Element(Element[listaZR6, 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
T74 = Element(Element[listaZR6', 1 + Div[A74, (2 * k) + 1]], 1 + Mod[A74, (2 * k) + 1])
C75 = Element(Element[listaZ2, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
D75 = Element(Element[listaZR, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
E75 = Element(Element[listaZR2, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
F75 = Element(Element[listaZRd6, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
G75 = Element(Element[listaZRD8, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
H75 = Element(Element[listaZ2Rd8, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
I75 = Element(Element[listaZ4, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
J75 = Element(Element[listaZ42, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
K75 = Element(Element[listaZR4, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
L75 = Element(Element[listaZR42, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
M75 = Element(Element[listaZ3, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
N75 = Element(Element[listaZ3', 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
O75 = Element(Element[listaZR3, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
P75 = Element(Element[listaZR3', 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
Q75 = Element(Element[listaZ6, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
R75 = Element(Element[listaZ6', 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
S75 = Element(Element[listaZR6, 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
T75 = Element(Element[listaZR6', 1 + Div[A75, (2 * k) + 1]], 1 + Mod[A75, (2 * k) + 1])
C76 = Element(Element[listaZ2, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
D76 = Element(Element[listaZR, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
E76 = Element(Element[listaZR2, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
F76 = Element(Element[listaZRd6, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
G76 = Element(Element[listaZRD8, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
H76 = Element(Element[listaZ2Rd8, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
I76 = Element(Element[listaZ4, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
J76 = Element(Element[listaZ42, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
K76 = Element(Element[listaZR4, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
L76 = Element(Element[listaZR42, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
M76 = Element(Element[listaZ3, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
N76 = Element(Element[listaZ3', 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
O76 = Element(Element[listaZR3, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
P76 = Element(Element[listaZR3', 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
Q76 = Element(Element[listaZ6, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
R76 = Element(Element[listaZ6', 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
S76 = Element(Element[listaZR6, 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
T76 = Element(Element[listaZR6', 1 + Div[A76, (2 * k) + 1]], 1 + Mod[A76, (2 * k) + 1])
C77 = Element(Element[listaZ2, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
D77 = Element(Element[listaZR, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
E77 = Element(Element[listaZR2, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
F77 = Element(Element[listaZRd6, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
G77 = Element(Element[listaZRD8, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
H77 = Element(Element[listaZ2Rd8, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
I77 = Element(Element[listaZ4, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
J77 = Element(Element[listaZ42, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
K77 = Element(Element[listaZR4, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
L77 = Element(Element[listaZR42, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
M77 = Element(Element[listaZ3, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
N77 = Element(Element[listaZ3', 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
O77 = Element(Element[listaZR3, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
P77 = Element(Element[listaZR3', 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
Q77 = Element(Element[listaZ6, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
R77 = Element(Element[listaZ6', 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
S77 = Element(Element[listaZR6, 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
T77 = Element(Element[listaZR6', 1 + Div[A77, (2 * k) + 1]], 1 + Mod[A77, (2 * k) + 1])
C78 = Element(Element[listaZ2, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
D78 = Element(Element[listaZR, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
E78 = Element(Element[listaZR2, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
F78 = Element(Element[listaZRd6, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
G78 = Element(Element[listaZRD8, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
H78 = Element(Element[listaZ2Rd8, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
I78 = Element(Element[listaZ4, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
J78 = Element(Element[listaZ42, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
K78 = Element(Element[listaZR4, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
L78 = Element(Element[listaZR42, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
M78 = Element(Element[listaZ3, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
N78 = Element(Element[listaZ3', 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
O78 = Element(Element[listaZR3, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
P78 = Element(Element[listaZR3', 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
Q78 = Element(Element[listaZ6, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
R78 = Element(Element[listaZ6', 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
S78 = Element(Element[listaZR6, 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
T78 = Element(Element[listaZR6', 1 + Div[A78, (2 * k) + 1]], 1 + Mod[A78, (2 * k) + 1])
C79 = Element(Element[listaZ2, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
D79 = Element(Element[listaZR, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
E79 = Element(Element[listaZR2, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
F79 = Element(Element[listaZRd6, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
G79 = Element(Element[listaZRD8, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
H79 = Element(Element[listaZ2Rd8, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
I79 = Element(Element[listaZ4, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
J79 = Element(Element[listaZ42, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
K79 = Element(Element[listaZR4, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
L79 = Element(Element[listaZR42, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
M79 = Element(Element[listaZ3, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
N79 = Element(Element[listaZ3', 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
O79 = Element(Element[listaZR3, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
P79 = Element(Element[listaZR3', 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
Q79 = Element(Element[listaZ6, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
R79 = Element(Element[listaZ6', 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
S79 = Element(Element[listaZR6, 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
T79 = Element(Element[listaZR6', 1 + Div[A79, (2 * k) + 1]], 1 + Mod[A79, (2 * k) + 1])
C80 = Element(Element[listaZ2, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
D80 = Element(Element[listaZR, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
E80 = Element(Element[listaZR2, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
F80 = Element(Element[listaZRd6, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
G80 = Element(Element[listaZRD8, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
H80 = Element(Element[listaZ2Rd8, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
I80 = Element(Element[listaZ4, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
J80 = Element(Element[listaZ42, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
K80 = Element(Element[listaZR4, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
L80 = Element(Element[listaZR42, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
M80 = Element(Element[listaZ3, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
N80 = Element(Element[listaZ3', 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
O80 = Element(Element[listaZR3, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
P80 = Element(Element[listaZR3', 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
Q80 = Element(Element[listaZ6, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
R80 = Element(Element[listaZ6', 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
S80 = Element(Element[listaZR6, 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
T80 = Element(Element[listaZR6', 1 + Div[A80, (2 * k) + 1]], 1 + Mod[A80, (2 * k) + 1])
C81 = Element(Element[listaZ2, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
D81 = Element(Element[listaZR, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
E81 = Element(Element[listaZR2, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
F81 = Element(Element[listaZRd6, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
G81 = Element(Element[listaZRD8, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
H81 = Element(Element[listaZ2Rd8, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
I81 = Element(Element[listaZ4, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
J81 = Element(Element[listaZ42, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
K81 = Element(Element[listaZR4, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
L81 = Element(Element[listaZR42, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
M81 = Element(Element[listaZ3, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
N81 = Element(Element[listaZ3', 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
O81 = Element(Element[listaZR3, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
P81 = Element(Element[listaZR3', 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
Q81 = Element(Element[listaZ6, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
R81 = Element(Element[listaZ6', 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
S81 = Element(Element[listaZR6, 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
T81 = Element(Element[listaZR6', 1 + Div[A81, (2 * k) + 1]], 1 + Mod[A81, (2 * k) + 1])
colorM: {Polygon[ColorMuestra, ColorMuestra + (1.2, 0), ColorMuestra + (1.2, 1.2), ColorMuestra + (0, 1.2)]}
rectas01: {Sequence[Line[A + (s * u), A + v + (s * u)], s, (-((4 * k))), (4 * k)], Sequence[Line[A + (s * v), A + u + (s * v)], s, (-((4 * k))), (4 * k)]}
AA: A
BB: B
DespDesp: Desplazamiento
CC: C
vértices = true
xGoma = -1.42 (slider from -1.5 to -1, step 0.01)
yGoma = 0.059999999999998874 (slider from 0 to 0.3, step 0.01)
PuntoGoma: (xGoma, yGoma)
listaNombresGrupos: {"o (p1)", "2222 (p2)", "*x (cm)", "2*22 (cmm)", "** (pm)", "xx (pg)", "*2222 (pmm)", "22x (pgg)", "22* (pmg)", "442 (p4)", "*442 (p4m)", "4*2 (p4g)", "333 (p3)", "*333 (p3m1)", "3*3 (p31m)", "632 (p6)", "*632 (p6m)"}
nombreGrupo: "Grupo " + Grupo + " 
" + (Element[listaNombresGrupos, Grupo])
PPP: (xZ, yZ)