Deslízame

Ayuda

unidad de
superficie

unidad de
 longitud

A = (-1, -2)
B = (6, -2)
B' = Rotate(B, 90*°, A)
q = Segment(B', A)
polígono3, l, m, n, p = Polygon(A + (20 / q * (A - B')), B + (20 / q * (A - B')), B - (20 / q * (A - B')), A - (20 / q * (A - B')))
α = 0 rad (slider from 0*° to 180*°, step 2*°)
C = PointIn(polígono3)
polígono1, c, a, b = Polygon(A, B, C)
D = Midpoint(a)
E = (-3, -3)
e = Circle(E, 1)
F = Point(e)
polígono2, f, g, h, i, G, H = Polygon(E, F, 4)
j = false
d = OrthogonalLine(C, c)
P = Intersect(d, c)
k = Segment(C, P)
lista1 = Sequence(Segment[A + (k / c * (B - A)), A + C - P + (k / c * (B - A))], k, 0, c)
lista2 = Sequence(Segment[A + (i / k * (C - P)), B + (i / k * (C - P))], i, 0, k)
polígono4, a_1, c_1, p_1 = Polygon(C, P, A)
polígono5, p_2, c_2, b_1 = Polygon(C, B, P)
I = Midpoint(b)
C' = Rotate(C, α, D)
B'_1 = Rotate(B, α, D)
P' = Rotate(P, α, D)
polígono5', p', c', b'_1 = Polygon(C', B'_1, P')
C'_1 = Rotate(C, (-α), I)
P'_1 = Rotate(P, (-α), I)
A' = Rotate(A, (-α), I)
polígono4', a', c'_1, p'_1 = Polygon(C'_1, P'_1, A')
abis = Segment(A, B)