Deslízame

Ayuda

unidad de
superficie

unidad de
 longitud

A = (0, -2)
C = (7, -2)
p = Segment(A, C)
O_1 = Point(p)
c_1 = OrthogonalLine(O_1, p)
B = (1, 2)
e_1 = Line(B, p)
O = Intersect(e_1, c_1)
β = Angle(O, B, O_1)
P = If(β > π, O, B)
I: B + C - A
k = Segment(A, C)
α = 0 rad (slider from 0*° to 180*°, step 2*°)
E = (-3, -3)
e = Circle(E, 1)
F = Point(e)
polígono2, f, g, h, i, G, H = Polygon(E, F, 4)
j = false
P': P + C - A
l = Ray(P, P')
D = Point(l)
polígono1, q, r, s, t = Polygon(A, B, D, C)
J = Midpoint(q)
K = Midpoint(s)
m = Segment(J, K)
a = OrthogonalLine(B, m)
b = OrthogonalLine(A, m)
L = Intersect(a, m)
M = Intersect(b, m)
polígono3, b_1, semialtura, l_1 = Polygon(J, L, B)
J' = Rotate(J, α, J)
L' = Rotate(L, α, J)
B' = Rotate(B, α, J)
polígono3', b', j', l' = Polygon(J', L', B')
polígono4, b_2, d, k_1, l_2 = Polygon(B, D, K, L)
B'_1 = Rotate(B, (-α), K)
D' = Rotate(D, (-α), K)
K' = Rotate(K, (-α), K)
L'_1 = Rotate(L, (-α), K)
polígono4', b'_1, d', k', l'_1 = Polygon(B'_1, D', K', L'_1)
polígono5, a_1, c, k_2, j_2 = Polygon(A, C, K, J)
lista1 = Sequence(Segment[A + (k / t * (C - A)), A + B - L + (k / t * (C - A))], k, 0, r + t)
lista2 = Sequence(Segment[A + (k / semialtura * (B - L)), C + D - B + (k / semialtura * (B - L))], k, 0, semialtura)
N = Intersect(b, r)
polígono6, b_3, j_1, m_1, n = Polygon(B, J, M, N)
polígono7, d_1, n_1, m_2, k_3 = Polygon(D, N, M, K)
B'_2 = Rotate(B, α, J)
J'_1 = Rotate(J, α, J)
M' = Rotate(M, α, J)
N' = Rotate(N, α, J)
polígono6', b'_2, j'_1, m', n' = Polygon(B'_2, J'_1, M', N')
D'_1 = Rotate(D, (-α), K)
N'_1 = Rotate(N, (-α), K)
M'_1 = Rotate(M, (-α), K)
K'_1 = Rotate(K, (-α), K)
polígono7', d'_1, n'_1, m'_1, k'_1 = Polygon(D'_1, N'_1, M'_1, K'_1)
lista3 = Sequence(Segment[A + B - N + (k / m_1 * (M - A)), C + D - N + (k / m_1 * (M - A))], k, 0, m_1)
lista4 = Sequence(Segment[A + B - N + (k / (r + t) * (C - A + D - B)), M + B - N + (k / (r + t) * (C - A + D - B))], k, 0, r + t)
f_1 = Segment(B, D)
g_1 = Line(A, C)
h_1 = OrthogonalLine(D, g_1)
Q = Intersect(h_1, g_1)
i_1 = Segment(D, Q)