Construir

Centro: (Corner[1.0] + Corner[3.0]) / 2.0
M = Point(Ray[Centro + (0.0, 0.2), Centro + (0.0, 1.0)])
r: 2.0 * abs(y(M - (Corner[3.0] + Corner[1.0]) / 2.0))
T: (-(4.04), (y(Corner[3.0] + Corner[1.0]) - r) / 2.0)
polígono2: {Polygon[T + (-(10.0), r), T + (30.0, r), T + (30.0, 20.0), T + (-(10.0), 20.0)]}
a = Line(T, T + (1.0, 0.0))
A = Point(a)
C = Point(Ray[A, A + (1.0, 0.0)])
α = Mod(x(C - A), 6.283185307179586)
D: C + (0.0, r)
b = Line(T + (0.0, r), T + (1.0, r))
B: A + (0.0, r)
C2a = Rotate(D, 90.0° - α, C)
C1a = Rotate(C, -(30.0)° - α, D)
C2b = Rotate(D, 30.0° - α, C)
C1b = Rotate(C, 30.0° - α, D)
C3a = Rotate(C, 90.0° - α, D)
C3b = Rotate(C, 150.0° - α, D)
C4b = Rotate(D, -(α - 150.0°), C)
C4a = Rotate(D, -(α - 210.0°), C)
C5a = Rotate(C, -(α - 210.0°), D)
C5b = Rotate(C, 270.0° - α, D)
C6a = Rotate(D, 330.0° - α, C)
C6b = Rotate(D, -(α) + 270.0°, C)
C7a = Rotate(C, 330.0° - α, D)
C7b = Rotate(C, 390.0° - α, D)
B1 = If(α ≤ 30.0°, C1a, If[α ≤ 90.0°, C2a, If[α ≤ 150.0°, C3a, If[α ≤ 210.0°, C4a, If[α ≤ 270.0°, C5a, If[α ≤ 330.0°, C6a, C7a]]]]])
B2 = If(α ≤ 30.0°, C1b, If[α ≤ 90.0°, C2b, If[α ≤ 150.0°, C3b, If[α ≤ 210.0°, C4b, If[α ≤ 270.0°, C5b, If[α ≤ 330.0°, C6b, C7b]]]]])
B3 = If(α ≤ 30.0° ∨ α > 90.0° ∧ α ≤ 150.0° ∨ α > 210.0° ∧ α ≤ 270.0° ∨ α > 330.0°, D, C)
E = Midpoint(B1, B2)
d_1 = Ray(C, E)
c = Circle(B3, B1)
F = Midpoint(B1, B2)
e = Ray(B3, F)
G = Intersect(c, e, 1.0)
g = CircumcircleArc(B1, G, B2)
h = Circle(B1, B2)
H = Midpoint(B3, B2)
i = Ray(B1, H)
I = Intersect(h, i, 1.0)
k = CircumcircleArc(B3, I, B2)
p = Circle(B2, B1)
J = Midpoint(B3, B1)
j = Ray(B2, J)
K = Intersect(p, j, 1.0)
q = CircumcircleArc(B3, K, B1)
polígono1, cc1, cc3, cc2 = Polygon(B3, B2, B1)
L: (B1 + B2 + B3) / 3.0
lugar1 = Locus(L, C)
lista1: {Polygon[T + (-(10.0), 0.0), T + (30.0, 0.0), T + (30.0, -(20.0)), T + (-(10.0), -(20.0))]}
d = false
N = (-2.36, -3.22)
O = (6.36, 2.52)
f = Line(N, O)
P = (4.68, 4.82)
Q = (0.82, -4.26)
l = Line(P, Q)
R = (-2.44, -0.58)
S = (8.58, -1.04)
m = Line(R, S)
U = (0.72, 4.68)
V = (7.24, -3.74)
n = Line(U, V)
W = Intersect(l, n)
Z = Intersect(f, n)
A_1 = Intersect(f, l)
B_1 = Intersect(f, m)
C_1 = Intersect(l, m)
D_1 = Intersect(m, n)
G_1 = Point(m)
s = Circle(B_1, G_1)
H_1 = Intersect(s, f, 2.0)
F_1 = Midpoint(H_1, G_1)
t = Ray(B_1, F_1)
I_1 = Intersect(s, t)
c_1 = CircumcircleArc(G_1, I_1, H_1)
e_1 = Circle(A_1, H_1)
J_1 = Intersect(e_1, l, 1.0)
K_1 = Midpoint(J_1, H_1)
a_1 = Ray(A_1, K_1)
L_1 = Intersect(e_1, a_1, 1.0)
f_1 = CircumcircleArc(H_1, L_1, J_1)
g_1 = Circle(W, J_1)
M_1 = Intersect(g_1, n, 1.0)
N_1 = Midpoint(M_1, J_1)
b_1 = Ray(W, N_1)
O_1 = Intersect(g_1, b_1, 1.0)
h_1 = CircumcircleArc(J_1, O_1, M_1)
k_1 = Circle(D_1, M_1)
P_1 = Intersect(k_1, m, 1.0)
Q_1 = Midpoint(M_1, P_1)
i_1 = Ray(D_1, Q_1)
R_1 = Intersect(k_1, i_1, 1.0)
p_1 = CircumcircleArc(M_1, R_1, P_1)
q_1 = Circle(B_1, P_1)
S_1 = Intersect(q_1, f, 1.0)
T_1 = Midpoint(P_1, S_1)
j_1 = Ray(B_1, T_1)
U_1 = Intersect(q_1, j_1, 1.0)
r_1 = CircumcircleArc(P_1, U_1, S_1)
s_1 = Circle(A_1, S_1)
V_1 = Intersect(s_1, l, 2.0)
W_1 = Midpoint(S_1, V_1)
l_1 = Ray(A_1, W_1)
Z_1 = Intersect(s_1, l_1, 1.0)
t_1 = CircumcircleArc(S_1, Z_1, V_1)
c_2 = Circle(W, V_1)
A_2 = Intersect(c_2, n, 2.0)
B_2 = Midpoint(V_1, A_2)
m_1 = Ray(W, B_2)
C_2 = Intersect(c_2, m_1, 1.0)
d_2 = CircumcircleArc(V_1, C_2, A_2)
D_2 = Midpoint(A_2, G_1)
e_2 = Circle(D_1, A_2)
n_1 = Ray(D_1, D_2)
E_2 = Intersect(e_2, n_1, 1.0)
f_2 = CircumcircleArc(A_2, E_2, G_1)
polígono3: {Polygon[G_1, H_1, J_1, M_1, P_1, S_1, V_1, A_2]}