Comprobar

Ver flechas

En la flecha de la izquierda, debido a la perspectiva,
interpretamos que la línea vertical roja está más
cerca del ojo y por tanto se verá más grande que 
el resto. Para compensar su tamaño relativo,
nuestra mente disminuye la percepción de su longitud,
así que percibimos esa línea más corta de lo que es.

Lo contrario ocurre con la línea vertical roja de la derecha,
que al ser interpretada como 'situada al fondo',
para compensar 'su lejanía' la percibimos mayor de lo que es.

M = (16.02, 0.28)
s = OrthogonalLine(M, xAxis)
L = (12.08, 0)
r = Segment(L - (0, 1), L - (0, 3))
I = (4.66, 2.7600000000000002)
q = OrthogonalLine(I, xAxis)
E = (2.84, -3.52)
Regla1a = (8.620000000000001, 3.52)
Regla1b = Circle(Regla1a, 4)
Regla1c = Point(Regla1b)
Regla1c1 = 0.17453292519943295 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
Regla1c2: Regla1c1 / 2
Regla1d: Angle[Regla1a + (1, 0), Regla1a, Regla1c] - Regla1c1 / 2
Regla1e = Rotate(Regla1a + ((-7.68), (-0.5)), (Regla1c2 * Div[Regla1d + Regla1c2, Regla1c2]), Regla1a)
Regla1f = Rotate(Regla1a + (7.68, (-0.5)), (Regla1c2 * Div[Regla1d + Regla1c2, Regla1c2]), Regla1a)
Regla1g = Rotate(Regla1a - (0.19, 0.19), Regla1d, Regla1a)
Regla1h = Rotate(Regla1a - ((-0.19), 0.19), Regla1d, Regla1a)
Regla1i: Regla1c - (0.21, 0.19)
Regla1j: Regla1c - ((-0.21), 0.19)
O = (-0.04, 1.76)
P = (-0.1, -4.4)
j = Line(I, O)
J = Point(q)
k = Line(J, P)
K = Point(r)
l = Line(J, K)
m = Line(I, L)
n = Line(L, M)
N = Point(s)
p = Line(N, K)
C = Intersect(j, k)
D = Point(q)
a = Line(C, D)
F = Point(q)
b = Line(C, F)
G = Point(j)
H = Point(j)
Q = Point(j)
c = OrthogonalLine(G, xAxis)
d = OrthogonalLine(Q, xAxis)
e = OrthogonalLine(H, xAxis)
R = Intersect(k, e)
S = Intersect(k, d)
T = Intersect(k, c)
C_1 = Point(b)
D_1 = Point(a)
f = Segment(O, D_1)
g = Segment(D_1, C_1)
h = Segment(C_1, P)
i = Segment(O, I)
t = Segment(D_1, D)
a_1 = Segment(C_1, F)
b_1 = Segment(P, J)
E_1 = Intersect(l, m)
c_1 = Line(D, E_1)
d_1 = Line(F, E_1)
F_1 = Point(m)
G_1 = Point(m)
H_1 = Point(m)
I_1 = Point(m)
J_1 = Point(m)
K_1 = Point(m)
M_1 = Point(m)
L_1 = Point(m)
N_1 = Point(m)
e_1 = OrthogonalLine(F_1, xAxis)
f_1 = OrthogonalLine(G_1, xAxis)
g_1 = OrthogonalLine(H_1, xAxis)
h_1 = OrthogonalLine(I_1, xAxis)
i_1 = OrthogonalLine(J_1, xAxis)
j_1 = OrthogonalLine(K_1, xAxis)
k_1 = OrthogonalLine(L_1, xAxis)
l_1 = OrthogonalLine(M_1, xAxis)
m_1 = OrthogonalLine(N_1, xAxis)
I_2 = Intersect(l, e_1)
J_2 = Intersect(l, f_1)
K_2 = Intersect(l, g_1)
L_2 = Intersect(l, h_1)
M_2 = Intersect(l, i_1)
N_2 = Intersect(l, j_1)
O_2 = Intersect(l, k_1)
P_2 = Intersect(l, l_1)
Q_2 = Intersect(m_1, l)
n_1 = Segment(H, R)
p_1 = Segment(Q, S)
q_1 = Segment(G, T)
r_1 = Segment(F_1, I_2)
s_1 = Segment(G_1, J_2)
t_1 = Segment(H_1, K_2)
a_2 = Segment(I_1, L_2)
b_2 = Segment(J_1, M_2)
c_2 = Segment(K_1, N_2)
d_2 = Segment(L_1, O_2)
e_2 = Segment(M_1, P_2)
f_2 = Segment(N_1, Q_2)
h_2 = Segment(J, K)
R_2 = Intersect(r, c_1)
S_2 = Intersect(d_1, r)
i_2 = Segment(I, D)
j_2 = Segment(D, F)
k_2 = Segment(F, J)
l_2 = Segment(L, K)
m_2 = Segment(D, R_2)
n_2 = Segment(F, S_2)
U = Intersect(n, p)
p_2 = Line(U, R_2)
q_2 = Line(U, S_2)
V = Intersect(s, p_2)
W = Intersect(s, q_2)
Z = Point(n)
A_1 = Point(n)
B_1 = Point(n)
r_2 = OrthogonalLine(Z, xAxis)
s_2 = OrthogonalLine(A_1, xAxis)
t_2 = OrthogonalLine(B_1, xAxis)
O_1 = Intersect(r_2, p)
P_1 = Intersect(p, s_2)
Q_1 = Intersect(p, t_2)
a_3 = Segment(L, M)
b_3 = Segment(M, N)
c_3 = Segment(N, K)
d_3 = Segment(R_2, V)
e_3 = Segment(S_2, W)
f_3 = Segment(Z, O_1)
g_3 = Segment(A_1, P_1)
h_3 = Segment(B_1, Q_1)
g_2 = Segment(I, L)
R_1 = Intersect(t, n_1)
S_1 = Intersect(t, p_1)
T_1 = Intersect(t, q_1)
U_1 = Intersect(r_1, m_2)
V_1 = Intersect(s_1, m_2)
W_1 = Intersect(t_1, m_2)
Z_1 = Intersect(a_2, m_2)
A_2 = Intersect(b_2, m_2)
B_2 = Intersect(c_2, m_2)
C_2 = Intersect(d_2, m_2)
D_2 = Intersect(e_2, m_2)
E_2 = Intersect(f_2, m_2)
F_2 = Intersect(d_3, f_3)
G_2 = Intersect(d_3, g_3)
H_2 = Intersect(d_3, h_3)
T_2 = Intersect(e_3, h_3)
U_2 = Intersect(g_3, e_3)
V_2 = Intersect(e_3, f_3)
W_2 = Intersect(f_2, n_2)
Z_2 = Intersect(e_2, n_2)
A_3 = Intersect(d_2, n_2)
B_3 = Intersect(n_2, c_2)
C_3 = Intersect(n_2, b_2)
D_3 = Intersect(a_2, n_2)
E_3 = Intersect(t_1, n_2)
F_3 = Intersect(s_1, n_2)
G_3 = Intersect(n_2, r_1)
H_3 = Intersect(a_1, q_1)
I_3 = Intersect(a_1, p_1)
J_3 = Intersect(a_1, n_1)
polígono1: {Polygon[D_1, R_1, H, O]}
polígono2: {Polygon[R_1, S_1, Q, H]}
polígono3: {Polygon[S_1, T_1, G, Q]}
polígono4: {Polygon[T_1, D, I, G]}
polígono5: {Polygon[C_1, J_3, R_1, D_1]}
polígono6: {Polygon[J_3, I_3, S_1, R_1]}
polígono7: {Polygon[I_3, H_3, T_1, S_1]}
polígono8: {Polygon[H_3, F, D, T_1]}
polígono9: {Polygon[P, R, J_3, C_1]}
polígono10: {Polygon[R, S, I_3, J_3]}
polígono11: {Polygon[S, T, H_3, I_3]}
polígono12: {Polygon[T, J, F, H_3]}
polígono13: {Polygon[J, I_2, G_3, F]}
polígono14: {Polygon[F, G_3, U_1, D]}
polígono15: {Polygon[D, U_1, F_1, I]}
polígono16: {Polygon[U_1, V_1, G_1, F_1]}
polígono17: {Polygon[G_3, F_3, V_1, U_1]}
polígono18: {Polygon[I_2, J_2, F_3, G_3]}
polígono19: {Polygon[J_2, K_2, E_3, F_3]}
polígono20: {Polygon[F_3, E_3, W_1, V_1]}
polígono21: {Polygon[V_1, W_1, H_1, G_1]}
polígono22: {Polygon[W_1, Z_1, I_1, H_1]}
polígono23: {Polygon[E_3, D_3, Z_1, W_1]}
polígono24: {Polygon[K_2, L_2, D_3, E_3]}
polígono25: {Polygon[L_2, M_2, C_3, D_3]}
polígono26: {Polygon[D_3, C_3, A_2, Z_1]}
polígono27: {Polygon[Z_1, A_2, J_1, I_1]}
polígono28: {Polygon[A_2, B_2, K_1, J_1]}
polígono29: {Polygon[C_3, B_3, B_2, A_2]}
polígono30: {Polygon[M_2, N_2, B_3, C_3]}
polígono31: {Polygon[N_2, O_2, A_3, B_3]}
polígono32: {Polygon[B_3, A_3, C_2, B_2]}
polígono33: {Polygon[B_2, C_2, L_1, K_1]}
polígono34: {Polygon[O_2, P_2, Z_2, A_3]}
polígono35: {Polygon[A_3, Z_2, D_2, C_2]}
polígono36: {Polygon[C_2, D_2, M_1, L_1]}
polígono37: {Polygon[D_2, E_2, N_1, M_1]}
polígono38: {Polygon[Z_2, W_2, E_2, D_2]}
polígono39: {Polygon[P_2, Q_2, W_2, Z_2]}
polígono40: {Polygon[Q_2, K, S_2, W_2]}
polígono41: {Polygon[W_2, S_2, R_2, E_2]}
polígono42: {Polygon[E_2, R_2, L, N_1]}
polígono43: {Polygon[K, O_1, V_2, S_2]}
polígono44: {Polygon[S_2, V_2, F_2, R_2]}
polígono45: {Polygon[R_2, F_2, Z, L]}
polígono46: {Polygon[O_1, P_1, U_2, V_2]}
polígono47: {Polygon[V_2, U_2, G_2, F_2]}
polígono48: {Polygon[F_2, G_2, A_1, Z]}
polígono49: {Polygon[P_1, Q_1, T_2, U_2]}
polígono50: {Polygon[U_2, T_2, H_2, G_2]}
polígono51: {Polygon[G_2, H_2, B_1, A_1]}
polígono52: {Polygon[Q_1, N, W, T_2]}
polígono53: {Polygon[T_2, W, V, H_2]}
polígono54: {Polygon[H_2, V, M, B_1]}
o = false
u = false
lista2: {Segment[M_1, L], Segment[L, Z], Segment[L, K], Segment[K, P_2], Segment[K, O_1]}
lista1: {Segment[T_1, D], Segment[D, U_1], Segment[D, F], Segment[F, H_3], Segment[F, G_3]}