x

y

a

a

a

a

b

b

b

Reinicia

b

1

5

a

b

1

5

1

5

a

b

a.b

a²

b²

Limpiar

textos

textos

textos

a

textox

b

arcos

textos

ab

textos

textos

Coloca inicio

Ver cuadrícula

arcos

arcos

arcos

T3 = (8.61820598006642, 6.027275747508303)
A3 = 2
dentroab = 1
a = 5 (slider from 0.5 to 8, step 0.1)
b = 4 (slider from 0.5 to 8, step 0.1)
W3 = arcoesquina(a, b, T3)
X3 = Point(W3)
L = (3.0867774086378597, -3.6848837209302236)
A = (-4, -5)
enHa = 1
enHb = 0
enH1 = 0
enH5 = 0
enV5 = 0
enV1 = 2
enVb = 1
enVa = 0
PHa1: A + (a / 2, 0)
RHa1, c, d, e, f = Polygon(PHa1 + (a / 2, (-1) / 2), PHa1 + (a / 2, 1 / 2), PHa1 + (((-a)) / 2, 1 / 2), PHa1 + (((-a)) / 2, (-1) / 2))
PHa2: A + ((3 * a / 2), 0)
PHa3: A + ((5 * a / 2), 0)
RHa2, g, h, i, j = Polygon(PHa2 + (a / 2, (-1) / 2), PHa2 + (a / 2, 1 / 2), PHa2 + (((-a)) / 2, 1 / 2), PHa2 + (((-a)) / 2, (-1) / 2))
RHa3, k, l, m, n = Polygon(PHa3 + (a / 2, (-1) / 2), PHa3 + (a / 2, 1 / 2), PHa3 + (((-a)) / 2, 1 / 2), PHa3 + (((-a)) / 2, (-1) / 2))
PHb1: A + ((enHa * a) + b / 2, 0)
PHb2: A + ((enHa * a) + (3 * b / 2), 0)
RHb1, p, q, r, s = Polygon(PHb1 + (b / 2, (-1) / 2), PHb1 + (b / 2, 1 / 2), PHb1 + (((-b)) / 2, 1 / 2), PHb1 + (((-b)) / 2, (-1) / 2))
RHb2, t, a_1, b_1, c_1 = Polygon(PHb2 + (b / 2, (-1) / 2), PHb2 + (b / 2, 1 / 2), PHb2 + (((-b)) / 2, 1 / 2), PHb2 + (((-b)) / 2, (-1) / 2))
PHb3: A + ((enHa * a) + (5 * b / 2), 0)
RHb3, d_1, e_1, f_1, g_1 = Polygon(PHb3 + (b / 2, (-1) / 2), PHb3 + (b / 2, 1 / 2), PHb3 + (((-b)) / 2, 1 / 2), PHb3 + (((-b)) / 2, (-1) / 2))
PI5: A + ((enHa * a) + (enHb * b) + 2.5, 0)
RI5 = Sequence(Polygon[PI5 + (k + 0.5, (-0.5)), PI5 + (k + 1.5, (-0.5)), 4], k, -3, 1)
PI11: A + ((enHa * a) + (enHb * b) + (5 * enH5) + 0.5, 0)
PI12: A + ((enHa * a) + (enHb * b) + (5 * enH5) + 1.5, 0)
PI13: A + ((enHa * a) + (enHb * b) + (5 * enH5) + 2.5, 0)
PI14: A + ((enHa * a) + (enHb * b) + (5 * enH5) + 3.5, 0)
RI11 = If(enH1 > 0, Polygon[PI11 + ((-1) / 2, (-1) / 2), PI11 + (1 / 2, (-1) / 2), 4])
RI12 = If(enH1 > 1, Polygon[PI12 + ((-1) / 2, (-1) / 2), PI12 + (1 / 2, (-1) / 2), 4])
RI13 = If(enH1 > 2, Polygon[PI13 + ((-1) / 2, (-1) / 2), PI13 + (1 / 2, (-1) / 2), 4])
RI14 = If(enH1 > 3, Polygon[PI14 + ((-1) / 2, (-1) / 2), PI14 + (1 / 2, (-1) / 2), 4])
B: A + (-1, 1)
PVa1: B + (0, a / 2)
PVa2: B + (0, (3 * a / 2))
PVb1: B + (0, (enVa * a) + b / 2)
PVb2: B + (0, (enVa * a) + (3 * b / 2))
PW5: B + (0, (enVa * a) + (enVb * b) + 2.5)
PW11: B + (0, (enVa * a) + (enVb * b) + (5 * enV5) + 0.5)
PW12: B + (0, (enVa * a) + (enVb * b) + (5 * enV5) + 1.5)
PW13: B + (0, (enVa * a) + (enVb * b) + (5 * enV5) + 2.5)
PW14: B + (0, (enVa * a) + (enVb * b) + (5 * enV5) + 3.5)
RVa1 = If(enVa > 0, Polygon[PVa1 + ((-1) / 2, a / 2), PVa1 + ((-1) / 2, ((-a)) / 2), PVa1 + (1 / 2, ((-a)) / 2), PVa1 + (1 / 2, a / 2)])
RVa2 = If(enVa > 1, Polygon[PVa2 + ((-1) / 2, a / 2), PVa2 + ((-1) / 2, ((-a)) / 2), PVa2 + (1 / 2, ((-a)) / 2), PVa2 + (1 / 2, a / 2)])
RVb1 = If(enVb > 0, Polygon[PVb1 + ((-1) / 2, b / 2), PVb1 + ((-1) / 2, ((-b)) / 2), PVb1 + (1 / 2, ((-b)) / 2), PVb1 + (1 / 2, b / 2)])
RVb2 = If(enVb > 1, Polygon[PVb2 + ((-1) / 2, b / 2), PVb2 + ((-1) / 2, ((-b)) / 2), PVb2 + (1 / 2, ((-b)) / 2), PVb2 + (1 / 2, b / 2)])
textoaV1 = If(enVa > 0, "a")
textoaV2 = If(enVa > 1, "a")
textobV1 = If(enVb > 0, "b")
textobV2 = If(enVb > 1, "b")
C: A + (0, 1)
D: C + ((enHa * a) + (enHb * b) + enH1 + (5 * enH5), 0)
E: D + (0, (enVa * a) + (enVb * b) + enV1 + (5 * enV5))
F: C + (0, (enVa * a) + (enVb * b) + enV1 + (5 * enV5))
rectangulo, c_2, d_2, e_2, f_2 = Polygon(C, D, E, F)
dentroa = 2
dentro1 = 0
dentro5 = 0
dentrob = 0
dentroa2 = 0
dentrob2 = 0
dentroba = 0
A2 = 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
B2 = (6.624318936877063, 5.223289036544846)
B3 = (9.582990033222575, 6.992059800664444)
B4 = (8.746843853820582, 4.451461794019929)
B5 = (7.8785382059800515, 6.927740863787368)
B6 = (4.72691029900331, 5.351926910298998)
B7 = (6.077607973421913, 3.5188372093023226)
B8 = (4.533953488372081, 3.3580398671096314)
B9 = (7.685581395348822, 3.454518272425246)
B10 = (5.884651162790685, 7.120697674418597)
B11 = (4.437475083056467, 7.120697674418597)
B12 = (10.097541528239187, 5.448405315614613)
C2 = If(dentro1 ≥ A2, Polygon[B2 + ((-0.5), (-0.5)), B2 + (0.5, (-0.5)), 4])
C3 = If(dentro1 ≥ A3, Polygon[B3 + ((-0.500000000000002), (-0.500000000000002)), B3 + (0.500000000000002, (-0.500000000000002)), 4])
C4 = If(dentro1 ≥ A4, Polygon[B4 + ((-0.500000000000002), (-0.500000000000002)), B4 + (0.500000000000002, (-0.500000000000002)), 4])
C5 = If(dentro1 ≥ A5, Polygon[B5 + ((-0.500000000000002), (-0.500000000000002)), B5 + (0.500000000000002, (-0.500000000000002)), 4])
C6 = If(dentro1 ≥ A6, Polygon[B6 + ((-0.500000000000002), (-0.500000000000002)), B6 + (0.500000000000002, (-0.500000000000002)), 4])
C7 = If(dentro1 ≥ A7, Polygon[B7 + ((-0.500000000000002), (-0.500000000000002)), B7 + (0.500000000000002, (-0.500000000000002)), 4])
C8 = If(dentro1 ≥ A8, Polygon[B8 + ((-0.500000000000002), (-0.500000000000002)), B8 + (0.500000000000002, (-0.500000000000002)), 4])
C9 = If(dentro1 ≥ A9, Polygon[B9 + ((-0.500000000000002), (-0.500000000000002)), B9 + (0.500000000000002, (-0.500000000000002)), 4])
C10 = If(dentro1 ≥ A10, Polygon[B10 + ((-0.500000000000002), (-0.500000000000002)), B10 + (0.500000000000002, (-0.500000000000002)), 4])
C11 = If(dentro1 ≥ A11, Polygon[B11 + ((-0.500000000000002), (-0.500000000000002)), B11 + (0.500000000000002, (-0.500000000000002)), 4])
C12 = If(dentro1 ≥ A12, Polygon[B12 + ((-0.500000000000002), (-0.500000000000002)), B12 + (0.500000000000002, (-0.500000000000002)), 4])
A13: (2 * A12) - A11
B13 = (10.03322259136211, 3.776112956810628)
C13 = If(dentro1 ≥ A13, Polygon[B13 + ((-0.500000000000004), (-0.500000000000004)), B13 + (0.500000000000004, (-0.500000000000004)), 4])
D2 = (7.621262458471746, 8.246279069767434)
D3 = (7.685581395348819, 4.001229235880398)
D4 = (7.685581395348819, 5.3197674418604635)
D5 = (7.685581395348819, 2.361096345514952)
D6 = (1.9933554817275618, 5.223289036544849)
D7 = (7.685581395348822, 6.927740863787368)
H2 = (-1.5, 0.5)
H3 = (-1.5, 1.5)
H4 = (8.425249169435196, 2.972126245847177)
H5 = (2.6043853820597858, 8.149800664451822)
H6 = (2.5722259136212475, 6.734784053156143)
H7 = (8.32877076411958, 4.483621262458471)
J2 = If(dentroa ≥ A2, "a")
J3 = If(dentroa ≥ A3, "a")
J4 = If(dentroa ≥ A4, "a")
J5 = If(dentroa ≥ A5, "a")
J6 = If(dentroa ≥ A6, "a")
J7 = If(dentroa ≥ A7, "a")
N2 = (6.334883720930218, 6.927740863787369)
N3 = (9.132757475083041, 4.676578073089696)
N4 = (8.97196013289035, 5.834318936877071)
N5 = (9.486511627906955, 3.2615614617940207)
N6 = (6.077607973421913, 4.708737541528235)
N7 = (5.916810631229223, 5.834318936877071)
P2 = If(dentrob ≥ A2, "b")
P3 = If(dentrob ≥ A3, "b")
P4 = If(dentrob ≥ A4, "b")
P5 = If(dentrob ≥ A5, "b")
P6 = If(dentrob ≥ A6, "b")
P7 = If(dentrob ≥ A7, "b")
B1 = 1
D1 = 5
PuntoV5: B + (0, (enVa * a) + (enVb * b) + 2.5)
RV5 = Sequence(Polygon[PuntoV5 + ((-0.5), k - 0.5), PuntoV5 + (0.5, k - 0.5), 4], k, -2, 2)
PV11: B + (0, (enVa * a) + (enVb * b) + (5 * enV5) + 0.5)
PV12: B + (0, (enVa * a) + (enVb * b) + (5 * enV5) + 1.5)
PV13: B + (0, (enVa * a) + (enVb * b) + (5 * enV5) + 2.5)
PV14: B + (0, (enVa * a) + (enVb * b) + (5 * enV5) + 3.5)
RV11 = If(enV1 > 0, Polygon[PV11 + ((-1) / 2, (-1) / 2), PV11 + (1 / 2, (-1) / 2), 4])
RV12 = If(enV1 > 1, Polygon[PV12 + ((-1) / 2, (-1) / 2), PV12 + (1 / 2, (-1) / 2), 4])
RV13 = If(enV1 > 2, Polygon[PV13 + ((-1) / 2, (-1) / 2), PV13 + (1 / 2, (-1) / 2), 4])
RV14 = If(enV1 > 3, Polygon[PV14 + ((-1) / 2, (-1) / 2), PV14 + (1 / 2, (-1) / 2), 4])
U3 = If(dentroab ≥ A3, baldosa[a, b, T3, X3])
T2 = (-1.5, -2)
V2 = If(dentroab ≥ A2, "a.b")
V3 = If(dentroab ≥ A3, "a.b")
ab: (a * b)
ba: (b * a)
Z2 = (5.852491694352143, 5.609202657807307)
Z3 = (7.685581395348819, 7.603089700996674)
Z4 = (3.858604651162776, 7.699568106312288)
Z5 = (9.26139534883719, 5.609202657807307)
AA2 = If(dentroa2 ≥ A2, Polygon[Z2 + (a / 2, ((-a)) / 2), Z2 + (a / 2, a / 2), Z2 + (((-a)) / 2, a / 2), Z2 + (((-a)) / 2, ((-a)) / 2)])
AA3 = If(dentroa2 ≥ A3, Polygon[Z3 + (a / 2, ((-a)) / 2), Z3 + (a / 2, a / 2), Z3 + (((-a)) / 2, a / 2), Z3 + (((-a)) / 2, ((-a)) / 2)])
AA4 = If(dentroa2 ≥ A4, Polygon[Z4 + (a / 2, ((-a)) / 2), Z4 + (a / 2, a / 2), Z4 + (((-a)) / 2, a / 2), Z4 + (((-a)) / 2, ((-a)) / 2)])
AA5 = If(dentroa2 ≥ A5, Polygon[Z5 + (a / 2, ((-a)) / 2), Z5 + (a / 2, a / 2), Z5 + (((-a)) / 2, a / 2), Z5 + (((-a)) / 2, ((-a)) / 2)])
AB2 = If(dentroa2 ≥ A2, "a²")
AB3 = If(dentroa2 ≥ A3, "a²")
AB4 = If(dentroa2 ≥ A4, "a²")
AB5 = If(dentroa2 ≥ A5, "a²")
AC2 = (5.85249169435216, 5.60920265780732)
AC3 = (10.933687707641175, 7.1528571428571395)
AC4 = (7.589102990033204, 7.1528571428571395)
AC5 = (9.197076411960113, 5.641362126245845)
AD2 = If(dentrob2 ≥ A2, Polygon[AC2 + (b / 2, ((-b)) / 2), AC2 + (b / 2, b / 2), AC2 + (((-b)) / 2, b / 2), AC2 + (((-b)) / 2, ((-b)) / 2)])
AD3 = If(dentrob2 ≥ A3, Polygon[AC3 + (b / 2, ((-b)) / 2), AC3 + (b / 2, b / 2), AC3 + (((-b)) / 2, b / 2), AC3 + (((-b)) / 2, ((-b)) / 2)])
AD4 = If(dentrob2 ≥ A4, Polygon[AC4 + (b / 2, ((-b)) / 2), AC4 + (b / 2, b / 2), AC4 + (((-b)) / 2, b / 2), AC4 + (((-b)) / 2, ((-b)) / 2)])
AD5 = If(dentrob2 ≥ A5, Polygon[AC5 + (b / 2, ((-b)) / 2), AC5 + (b / 2, b / 2), AC5 + (((-b)) / 2, b / 2), AC5 + (((-b)) / 2, ((-b)) / 2)])
AE2 = If(dentrob2 ≥ A2, "b²")
AE3 = If(dentrob2 ≥ A3, "b²")
AE4 = If(dentrob2 ≥ A4, "b²")
AE5 = If(dentrob2 ≥ A5, "b²")
ancho: x(D) - x(C)
alto: y(F) - y(C)
mallah = Sequence(Segment[Translate[C, (0, k)], Translate[D, (0, k)]], k, 1, alto)
mallav = Sequence(Segment[Translate[C, (k, 0)], Translate[F, (k, 0)]], k, 1, ancho)
o = false
q_1 = arcoesquina(a, b, L)
K = (7.492624584717589, -4.167275747508296)
r_1 = arcoesquina(a, b, K)
M = Point(r_1)
polígono2 = baldosa(a, b, K, M)
F2 = arcoesquina(5, 1, D2)
F3 = arcoesquina(5, 1, D3)
F4 = arcoesquina(5, 1, D4)
F5 = arcoesquina(5, 1, D5)
F6 = arcoesquina(5, 1, D6)
F7 = arcoesquina(5, 1, D7)
G2 = Point(F2)
G3 = Point(F3)
G4 = Point(F4)
G5 = Point(F5)
G6 = Point(F6)
G7 = Point(F7)
E2 = If(dentro5 ≥ A2, baldosade5[D2, G2])
E3 = If(dentro5 ≥ A3, baldosade5[D3, G3])
E4 = If(dentro5 ≥ A4, baldosade5[D4, G4])
E5 = If(dentro5 ≥ A5, baldosade5[D5, G5])
E6 = If(dentro5 ≥ A6, baldosade5[D6, G6])
E7 = If(dentro5 ≥ A7, baldosade5[D7, G7])
D8 = (1.7682392026577944, 6.6704651162790665)
F8 = arcoesquina(5, 1, D8)
G8 = Point(F8)
E8 = If(dentro5 ≥ A8, baldosade5[D8, G8])
D9 = (1.9290365448504854, 8.18196013289036)
F9 = arcoesquina(5, 1, D9)
G9 = Point(F9)
E9 = If(dentro5 ≥ A9, baldosade5[D9, G9])
D10 = (7.556943521594666, 0.9782392026578108)
F10 = arcoesquina(5, 1, D10)
G10 = Point(F10)
E10 = If(dentro5 ≥ A10, baldosade5[D10, G10])
K2 = arcoesquina(a, 1, H2)
K3 = arcoesquina(a, 1, H3)
K4 = arcoesquina(a, 1, H4)
K5 = arcoesquina(a, 1, H5)
K6 = arcoesquina(a, 1, H6)
K7 = arcoesquina(a, 1, H7)
L2 = Point(K2)
L3 = Point(K3)
L4 = Point(K4)
L5 = Point(K5)
L6 = Point(K6)
L7 = Point(K7)
I2 = If(dentroa ≥ A2, baldosa[a, 1, H2, L2])
I3 = If(dentroa ≥ A3, baldosa[a, 1, H3, L3])
I4 = If(dentroa ≥ A4, baldosa[a, 1, H4, L4])
I5 = If(dentroa ≥ A5, baldosa[a, 1, H5, L5])
I6 = If(dentroa ≥ A6, baldosa[a, 1, H6, L6])
I7 = If(dentroa ≥ A7, baldosa[a, 1, H7, L7])
Q2 = arcoesquina(b, 1, N2)
Q3 = arcoesquina(b, 1, N3)
Q4 = arcoesquina(b, 1, N4)
Q5 = arcoesquina(b, 1, N5)
Q6 = arcoesquina(b, 1, N6)
Q7 = arcoesquina(b, 1, N7)
R2 = Point(Q2)
R3 = Point(Q3)
R4 = Point(Q4)
R5 = Point(Q5)
R6 = Point(Q6)
R7 = Point(Q7)
O2 = If(dentrob ≥ A2, baldosa[b, 1, N2, R2])
O3 = If(dentrob ≥ A3, baldosa[b, 1, N3, R3])
O4 = If(dentrob ≥ A4, baldosa[b, 1, N4, R4])
O5 = If(dentrob ≥ A5, baldosa[b, 1, N5, R5])
O6 = If(dentrob ≥ A6, baldosa[b, 1, N6, R6])
O7 = If(dentrob ≥ A7, baldosa[b, 1, N7, R7])
W2 = arcoesquina(a, b, T2)
X2 = Point(W2)
U2 = If(dentroab ≥ A2, baldosa[a, b, T2, X2])
dentro5v = 0
dentroav = 0
dentrobv = 0

Tool: arcoesquina
ancho, alto, centro
Input: a, b, G
Output: arco

x

y

H: G + (a / 2, 0)
I: H + (0, ((-b)) / 2)
I' = Rotate(I, 90*°, G)
arco = CircleArc(G, I, I')

Tool: baldosa
ancho, alto, centro, vértice
Input: a, b, L, H
Output: polígono1

y

x

p_1 = Circle(L, sqrt(a^(2) + b^(2)))
j_1 = Ray(L, H)
J = Intersect(p_1, j_1, 1)
I = Midpoint(L, J)
I' = Mirror(I, L)
h_1 = Circle(I, a)
k_1 = Circle(I', b)
G = Intersect(h_1, k_1, 1)
G' = Mirror(G, L)
polígono1, i', g_2, i_1, g' = Polygon(I', G, I, G')

Tool: baldosade5
centro, esquina
Input: J, N
Output: baldosa5

N' = Rotate(N, 0.39479111969976155, J)
polígono1, h_1, i_1, j_1, k_1, O, P = Polygon(N, N', 4)
u = Vector(N, P)
baldosa5 = Sequence(Polygon[N + (k * u), N' + (k * u), 4], k, 0, 4)