W

V

U

T

S

R

Q

P

P

Q

R

S

Nuevo par

Mover

Girar

T

U

V

W

Cuadrícula

D_2 = (-4, -2)
D1_2 = Point(Circle[D_2, 5])
D2_2 = Dilate(Rotate[D1_2, 90°, D_2], 3 / 4, D_2)
poly8, d2_2, d_2, d1_2 = Polygon(D_2, D1_2, D2_2)
C_2 = (-1, -2)
C1_2 = Point(Circle[C_2, 5])
C2_2 = Dilate(Rotate[C1_2, 120°, C_2], 6 / 5, C_2)
poly7, c2_2, c_2, c1_2 = Polygon(C_2, C1_2, C2_2)
B_2 = (-4, -2)
B1_2 = Point(Circle[B_2, 5])
B2_2 = Dilate(Rotate[B1_2, 60°, B_2], 1, B_2)
poly6, b2_2, b_2, b1_2 = Polygon(B_2, B1_2, B2_2)
A_2 = (-3, 2)
A1_2 = Point(Circle[A_2, (4 * sqrt(2))])
A2_2 = Rotate(A1_2, 90°, A_2)
poly5, a2_2, a_4, a1_2 = Polygon(A_2, A1_2, A2_2)
a: asin(4 / 5)
D = (-4, -2)
D1 = Point(Circle[D, 4])
D2 = Dilate(Rotate[D1, a, D], 5 / 3, D)
poly4, d2, d, d1 = Polygon(D, D1, D2)
C = (-4, -2)
C1 = Point(Circle[C, 5])
C2 = Dilate(Rotate[C1, 100°, C], 4 / 5, C)
poly3, c2, c, c1 = Polygon(C, C1, C2)
B = (-3, -2)
B1 = Point(Circle[B, 4])
B2 = Dilate(Rotate[B1, 60°, B], 5 / 4, B)
poly2, b2, b, b1 = Polygon(B, B1, B2)
A = (-4, -2)
A1 = Point(Circle[A, 4])
A2 = Rotate(A1, 90°, A)
poly1, a2, a_1, a1 = Polygon(A, A1, A2)
list1: {poly1, poly2, poly3, poly4, poly5, poly6, poly7, poly8}
E = (3, -2)
F = (3, -2)
G = (3, -2)
H = (3, -2)
A_1: E
A1_1 = Point(Circle[A_1, 4])
A2_1 = Rotate(A1_1, 90°, A_1)
poly1_1, a2_1, a_2, a1_1 = Polygon(A_1, A1_1, A2_1)
B_1: F
B1_1 = Point(Circle[B_1, 4])
B2_1 = Dilate(Rotate[B1_1, 60°, B_1], 5 / 4, B_1)
poly2_1, b2_1, b_1, b1_1 = Polygon(B_1, B1_1, B2_1)
C_1: G
C1_1 = Point(Circle[C_1, 5])
C2_1 = Dilate(Rotate[C1_1, 100°, C_1], 4 / 5, C_1)
poly3_1, c2_1, c_1, c1_1 = Polygon(C_1, C1_1, C2_1)
D_1: H
D1_1 = Point(Circle[D_1, 4])
D2_1 = Dilate(Rotate[D1_1, a, D_1], 5 / 3, D_1)
n1 = 1
poly4_1, d2_1, d_1, d1_1 = Polygon(D_1, D1_1, D2_1)
n2 = 1
n1_1 = Random(1, Length[list1])
same_1 = RandomElement({true, false})
I = (7.4860140019512755, 6.4495475110829625)
J = (7.548863172682983, 5.443960779375636)
same = true
n2_1 = If(same, n1, Mod[n1 - 1 + Random[1, Length[list1] - 1], Length[list1]] + 1)
E_1 = (6, 2)
F_1 = (3, -2)
G_1 = (7, -2)
H_1 = (3, -2)
A_3: E_1
A1_3 = Point(Circle[A_3, (4 * sqrt(2))])
A2_3 = Rotate(A1_3, 90°, A_3)
poly5_1, a2_3, a_5, a1_3 = Polygon(A_3, A1_3, A2_3)
B_3: F_1
B1_3 = Point(Circle[B_3, 5])
B2_3 = Dilate(Rotate[B1_3, 60°, B_3], 1, B_3)
poly6_1, b2_3, b_3, b1_3 = Polygon(B_3, B1_3, B2_3)
C_3: G_1
C1_3 = Point(Circle[C_3, 5])
C2_3 = Dilate(Rotate[C1_3, 120°, C_3], 6 / 5, C_3)
poly7_1, c2_3, c_3, c1_3 = Polygon(C_3, C1_3, C2_3)
D_3: H_1
D1_3 = Point(Circle[D_3, 5])
D2_3 = Dilate(Rotate[D1_3, 90°, D_3], 3 / 4, D_3)
poly8_1, d2_3, d_3, d1_3 = Polygon(D_3, D1_3, D2_3)
n2_2 = 4
L = (-9, 9)
M = (-6, 9)
N = (-6, 7)
O = (-9, 7)
poly9, l, m, n, o = Polygon(L, M, N, O)
poly10, o_1, n_1, m_1, l_1 = Polygon(O, N, M, L)