Centrar

Rotar cierto ángulo

Reflexión con desplazamiento

Reflejar en la horizontal

Celda primitiva

Aplicar simetrías

Azulejo

Vectores de traslación

Centros de rotación

Ejes de reflexión

Copiar parte del mosaico

Dibujo libre

Rastro

Color manual

A0 = (-1.4, 2.2)
xF = 0.92 (slider from 0 to 1.2, step 0.01)
yF = 3.5800000000000014 (slider from 3.2 to 4.2, step 0.01)
F: (xF, yF)
centrar = false
yT = 0.5000000000000011
xT = 6.8 (slider from 1.72 to 20, step 0.1)
TT0: (xT, yT)
A = (6.8, -0.88)
B0: (x(F), y(A0))
J: F + A0 - B0
CRot: J
CRot': CRot + A - A0
xQ = 8.48 (slider from 2.26 to 20, step 0.01)
yQ = 1.6400000000000012
k = 3 (slider from 0 to 20, step 1)
Q: Corner[pincel, 1] + (0.05, 0)
C: A + J - A0
v = Vector(A, C)
B: A + B0 - A0
u = Vector(A, B)
u1: u + v
v1: v - u
CRotLat: (J + A0) / 2
CRotLat': CRotLat + A - A0
ejeH = Line(CRot', CRot' + u)
xR = 7.58 (slider from 2.3 to 20, step 0.1)
yR = 1.960000000000001
R0: (xR, yR)
J2 = Mirror(B0, F)
C2: A + J2 - A0
R: R0 - (0.78, 1.47)
rota = false
fi = 1.618033988749895
E = (-2.58, -2.3000000000000003)
d = Circle(E, 1 / fi)
G = Point(d)
β0 = Angle(E + (0.5, 0), E, G)
β = If(rota, round(β0), 0°)
H = (0.2, -4.88)
A1 = 1
A2 = 2
xGoma = -0.9 (slider from -1.4 to -0.9, step 0.01)
yGoma = -1.74 (slider from -2 to -1.7, step 0.01)
azulM = 22 (slider from 0 to 100, step 1)
rojoM = 70 (slider from 0 to 100, step 1)
verdeM = 54 (slider from 0 to 100, step 1)
reflejoD = false
reflejoH = false
motivo = true
isometrías = false
patrón = true
vectores = false
rotación = false
reflexión = false
copia = false
libre = false
rastro = false
manual = false
α = Angle(B0, A0, J)
rAB = Line(A, u1)
rAC = Line(A, v1)
a = Line(A, C)
b = Line(A, B)
qx = Line(Q, v1)
qy = Line(Q, u1)
listaP = Sequence(Sequence[Q + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
Qy = Intersect(Line[A, v1], qy)
Qx = Intersect(Line[A, u1], qx)
PuntoGoma: (xGoma, yGoma)
A3: (2 * A2) - A1
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
A21: (2 * A20) - A19
A22: (2 * A21) - A20
A23: (2 * A22) - A21
A24: (2 * A23) - A22
A25: (2 * A24) - A23
A26: (2 * A25) - A24
A27: (2 * A26) - A25
A28: (2 * A27) - A26
A29: (2 * A28) - A27
A30: (2 * A29) - A28
A31: (2 * A30) - A29
A32: (2 * A31) - A30
A33: (2 * A32) - A31
A34: (2 * A33) - A32
A35: (2 * A34) - A33
A36: (2 * A35) - A34
A37: (2 * A36) - A35
A38: (2 * A37) - A36
A39: (2 * A38) - A37
A40: (2 * A39) - A38
A41: (2 * A40) - A39
A42: (2 * A41) - A40
A43: (2 * A42) - A41
A44: (2 * A43) - A42
A45: (2 * A44) - A43
A46: (2 * A45) - A44
A47: (2 * A46) - A45
A48: (2 * A47) - A46
B1 = Element(Element[listaP, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
B2 = Element(Element[listaP, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
B3 = Element(Element[listaP, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
B4 = Element(Element[listaP, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
B5 = Element(Element[listaP, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
B6 = Element(Element[listaP, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
B7 = Element(Element[listaP, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
B8 = Element(Element[listaP, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
B9 = Element(Element[listaP, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
B10 = Element(Element[listaP, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
B11 = Element(Element[listaP, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
B12 = Element(Element[listaP, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
B13 = Element(Element[listaP, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
B14 = Element(Element[listaP, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
B15 = Element(Element[listaP, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
B16 = Element(Element[listaP, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
B17 = Element(Element[listaP, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
B18 = Element(Element[listaP, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
B19 = Element(Element[listaP, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
B20 = Element(Element[listaP, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
B21 = Element(Element[listaP, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
B22 = Element(Element[listaP, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
B23 = Element(Element[listaP, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
B24 = Element(Element[listaP, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
B25 = Element(Element[listaP, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
B26 = Element(Element[listaP, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
B27 = Element(Element[listaP, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
B28 = Element(Element[listaP, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
B29 = Element(Element[listaP, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
B30 = Element(Element[listaP, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
B31 = Element(Element[listaP, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
B32 = Element(Element[listaP, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
B33 = Element(Element[listaP, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
B34 = Element(Element[listaP, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
B35 = Element(Element[listaP, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
B36 = Element(Element[listaP, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
B37 = Element(Element[listaP, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
B38 = Element(Element[listaP, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
B39 = Element(Element[listaP, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
B40 = Element(Element[listaP, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
B41 = Element(Element[listaP, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
B42 = Element(Element[listaP, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
B43 = Element(Element[listaP, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
B44 = Element(Element[listaP, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
B45 = Element(Element[listaP, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
B46 = Element(Element[listaP, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
B47 = Element(Element[listaP, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
B48 = Element(Element[listaP, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
c: {Distance[Q, rAC] / Distance[B, rAC], Distance[Q, rAB] / Distance[C, rAB], Distance[Q, B] / Distance[C, B]}
rojoA: Distance[Q, rAC] / Distance[A + u1, rAC]
verdeA: Distance[Q, rAB] / Distance[A + v1, rAB]
azulA: Distance[Q, C] / Distance[C, A]
rojo = If(manual, rojoM / 100, rojoA)
verde = If(manual, verdeM / 100, verdeA)
azul = If(manual, azulM / 100, azulA)
muestraColor: {Polygon[H, H + (1, 0), H + (1, fi), H + (0, fi)]}
texto1: "% Rojo = " + rojoM + "

% Verde = " + verdeM + "

% Azul = " + azulM
celda, g, h, i = Polygon(A0, B0 + v, B0 + v - (2 * u))
texto2: "Ángulo rotado = " + β
F2 = Mirror(A0, CRot)
J' = Mirror(J, CRot)
F' = Mirror(F, CRot)
celda', j, l, m = Polygon(F, F2, F - (2 * u))
cisne2 = Mirror(cisne1, ejeH)
P' = If(β > 0, Rotate[CRot', β, R], R)
D: (B + v + A + C - u) / 3
QR = Mirror(Q, ejeH)
listaP2 = Sequence(Sequence[QR + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
D1 = Element(Element[listaP2, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
D2 = Element(Element[listaP2, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
D3 = Element(Element[listaP2, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
D4 = Element(Element[listaP2, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
D5 = Element(Element[listaP2, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
D6 = Element(Element[listaP2, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
D7 = Element(Element[listaP2, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
D8 = Element(Element[listaP2, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
D9 = Element(Element[listaP2, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
D10 = Element(Element[listaP2, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
D11 = Element(Element[listaP2, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
D12 = Element(Element[listaP2, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
D13 = Element(Element[listaP2, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
D14 = Element(Element[listaP2, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
D15 = Element(Element[listaP2, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
D16 = Element(Element[listaP2, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
D17 = Element(Element[listaP2, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
D18 = Element(Element[listaP2, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
D19 = Element(Element[listaP2, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
D20 = Element(Element[listaP2, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
D21 = Element(Element[listaP2, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
D22 = Element(Element[listaP2, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
D23 = Element(Element[listaP2, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
D24 = Element(Element[listaP2, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
D25 = Element(Element[listaP2, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
D26 = Element(Element[listaP2, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
D27 = Element(Element[listaP2, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
D28 = Element(Element[listaP2, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
D29 = Element(Element[listaP2, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
D30 = Element(Element[listaP2, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
D31 = Element(Element[listaP2, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
D32 = Element(Element[listaP2, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
D33 = Element(Element[listaP2, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
D34 = Element(Element[listaP2, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
D35 = Element(Element[listaP2, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
D37 = Element(Element[listaP2, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
D36 = Element(Element[listaP2, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
D38 = Element(Element[listaP2, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
D39 = Element(Element[listaP2, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
D40 = Element(Element[listaP2, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
D41 = Element(Element[listaP2, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
D42 = Element(Element[listaP2, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
D43 = Element(Element[listaP2, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
D44 = Element(Element[listaP2, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
D45 = Element(Element[listaP2, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
D46 = Element(Element[listaP2, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
D47 = Element(Element[listaP2, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
D48 = Element(Element[listaP2, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
T = If(centrar, CRot', TT0)
hayAxiales = true
w = Vector(CRot', T)
xT1 = 10.48 (slider from 1.72 to 20, step 0.1)
yT1 = 0.12
T1: (xT1, yT1)
listaCRef2 = Sequence(Translate[Line[CRot', CRot' + (1, 0)], Vector[(s * v)]], s, (-((2 * k))), (2 * k))
listaCRot2 = Sequence(Sequence[Translate[CRotLat', Vector[(s * u) - (t * v)]], s, (-((2 * k))), (2 * k)], t, (-((2 * k))), (2 * k))
listaCRot = Sequence(Sequence[Translate[CRotLat', Vector[(s * u) + (t * v)]], s, -1, 1], t, 0, 1)
listaCDesp2 = Sequence(Translate[Line[CRot', CRot' + (0, 1)], Vector[(s * u)]], s, (-((2 * k))), (2 * k))
ejeV = Segment(A, A + (2 * v))
t = Segment(F, F - (2 * u))
QRR = Mirror(Q, CRotLat')
QRRR = Mirror(QRR, ejeH)
listaCisne1 = Sequence(Sequence[Translate[cisne1, Vector[(s * u1) - (t * v1)]], s, (-((2 * k))), (2 * k)], t, (-((2 * k))), (2 * k))
listaCisne2 = Sequence(Sequence[Translate[cisne2, Vector[(s * u1) - (t * v1)]], s, (-((2 * k))), (2 * k)], t, (-((2 * k))), (2 * k))
vectoresT1: {Vector[T1 - u, T1 + u], Vector[T1 + u, T1 - u], Vector[T1 - v, T1 + v], Vector[T1 + v, T1 - v]}
cisne0 = Translate(cisne1, Vector[A, A0])
cisne02 = Translate(cisne2, Vector[A, A0])
patron: {Polygon[A, B + v, A + (2 * v), A + v - u]}
rectas2 = Sequence(Line[A + (s * v1), A + u1 + (s * v1)], s, (-((2 * k))), (2 * k))
rectas1 = Sequence(Line[A + (s * u1), A + v1 + (s * u1)], s, (-((2 * k))), (2 * k))
a1 = Segment(T - v / 2 - (5 * u / 2), T - v / 2 + (5 * u / 2))
baseCopia: {Polygon[Rotate[A - u1 - v1 + w, β, R], Rotate[A + (2 * u1) - v1 + w, β, R], Rotate[A + (2 * u1) + (2 * v1) + w, β, R], Rotate[A + (2 * v1) - u1 + w, β, R]]}
baseCopiaV: {Polygon[Mirror[T - (3 * u), a1], Mirror[T - (3 * v), a1], Mirror[T + (3 * u), a1], Mirror[T + (3 * v), a1]]}
listaCisne1C = Sequence(Sequence[Rotate[Translate[cisne1, Vector[w + (s * u1) - (t * v1)]], β, R], s, -1, 1], t, -1, 1)
listaCisne2C = Sequence(Sequence[Rotate[Translate[cisne2, Vector[w + (s * u1) - (t * v1)]], β, R], s, -1, 1], t, -1, 1)
listaCisne1CH = Sequence(Sequence[Mirror[Translate[cisne1, Vector[w + (s * u1) - (t * v1)]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne2CH = Sequence(Sequence[Mirror[Translate[cisne2, Vector[w + (s * u1) - (t * v1)]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne1CD = Sequence(Sequence[Mirror[Translate[cisne1, Vector[w + (s * u1) - (t * v1)]], a1], s, -1, 1], t, -1, 1)
test: (AffineRatio[A, A + u1, Qx] ≥ 0) ∧ (AffineRatio[A, A + u1, Qx] ≤ 1) ∧ (AffineRatio[A, A + v1, Qy] ≥ 0) ∧ (AffineRatio[A, A + v1, Qy] ≤ 1) ∧ (y(Q) ≤ y(A + v)) ∧ libre ∧ rastro
listaP3 = Sequence(Sequence[Q - u + v + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
listaP4 = Sequence(Sequence[QR - u + v + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
G1 = Element(Element[listaP3, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
H1 = Element(Element[listaP4, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
G2 = Element(Element[listaP3, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
H2 = Element(Element[listaP4, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
G3 = Element(Element[listaP3, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
H3 = Element(Element[listaP4, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
G4 = Element(Element[listaP3, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
H4 = Element(Element[listaP4, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
G5 = Element(Element[listaP3, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
H5 = Element(Element[listaP4, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
G6 = Element(Element[listaP3, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
H6 = Element(Element[listaP4, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
G7 = Element(Element[listaP3, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
H7 = Element(Element[listaP4, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
G8 = Element(Element[listaP3, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
H8 = Element(Element[listaP4, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
G9 = Element(Element[listaP3, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
H9 = Element(Element[listaP4, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
G10 = Element(Element[listaP3, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
H10 = Element(Element[listaP4, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
G11 = Element(Element[listaP3, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
H11 = Element(Element[listaP4, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
G12 = Element(Element[listaP3, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
H12 = Element(Element[listaP4, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
G13 = Element(Element[listaP3, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
H13 = Element(Element[listaP4, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
G14 = Element(Element[listaP3, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
H14 = Element(Element[listaP4, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
G15 = Element(Element[listaP3, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
H15 = Element(Element[listaP4, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
G16 = Element(Element[listaP3, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
H16 = Element(Element[listaP4, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
G17 = Element(Element[listaP3, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
H17 = Element(Element[listaP4, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
G18 = Element(Element[listaP3, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
H18 = Element(Element[listaP4, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
G19 = Element(Element[listaP3, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
H19 = Element(Element[listaP4, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
G20 = Element(Element[listaP3, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
H20 = Element(Element[listaP4, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
G21 = Element(Element[listaP3, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
H21 = Element(Element[listaP4, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
G22 = Element(Element[listaP3, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
H22 = Element(Element[listaP4, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
G23 = Element(Element[listaP3, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
H23 = Element(Element[listaP4, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
G24 = Element(Element[listaP3, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
H24 = Element(Element[listaP4, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
G25 = Element(Element[listaP3, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
H25 = Element(Element[listaP4, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
G26 = Element(Element[listaP3, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
H26 = Element(Element[listaP4, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
G27 = Element(Element[listaP3, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
H27 = Element(Element[listaP4, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
G28 = Element(Element[listaP3, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
H28 = Element(Element[listaP4, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
G29 = Element(Element[listaP3, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
H29 = Element(Element[listaP4, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
G30 = Element(Element[listaP3, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
H30 = Element(Element[listaP4, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
G31 = Element(Element[listaP3, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
H31 = Element(Element[listaP4, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
G32 = Element(Element[listaP3, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
H32 = Element(Element[listaP4, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
G33 = Element(Element[listaP3, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
H33 = Element(Element[listaP4, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
G34 = Element(Element[listaP3, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
H34 = Element(Element[listaP4, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
G35 = Element(Element[listaP3, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
H35 = Element(Element[listaP4, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
G36 = Element(Element[listaP3, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
H36 = Element(Element[listaP4, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
G37 = Element(Element[listaP3, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
H37 = Element(Element[listaP4, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
G38 = Element(Element[listaP3, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
H38 = Element(Element[listaP4, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
G39 = Element(Element[listaP3, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
H39 = Element(Element[listaP4, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
G40 = Element(Element[listaP3, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
H40 = Element(Element[listaP4, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
G41 = Element(Element[listaP3, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
H41 = Element(Element[listaP4, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
G42 = Element(Element[listaP3, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
H42 = Element(Element[listaP4, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
G43 = Element(Element[listaP3, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
H43 = Element(Element[listaP4, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
G44 = Element(Element[listaP3, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
H44 = Element(Element[listaP4, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
G45 = Element(Element[listaP3, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
H45 = Element(Element[listaP4, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
G46 = Element(Element[listaP3, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
H46 = Element(Element[listaP4, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
G47 = Element(Element[listaP3, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
H47 = Element(Element[listaP4, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
G48 = Element(Element[listaP3, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
H48 = Element(Element[listaP4, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
e = Segment(Rotate[T - (3 * u), β, R], Rotate[T + (3 * u), β, R])
listaCisne2CD = Sequence(Sequence[Mirror[Translate[cisne2, Vector[w + (s * u1) - (t * v1)]], a1], s, -1, 1], t, -1, 1)
PPP: (xQ, yQ)