Date: 23 Marzo 2014

d

D

A=\dfrac{D·d}{2}

A = (4.46, 8.34)
B = (4.46, 1.62)
C = Midpoint(A, B)
a = Segment(A, B)
b = OrthogonalLine(C, a)
D = Point(b)
c = Circle(C, D)
E = Intersect(c, b, 2)
polígono1, a_1, d, b_1, e = Polygon(A, D, B, E)
polígono2, e_1, a_2, c_1 = Polygon(A, C, E)
polígono3, c_2, a_3, d_1 = Polygon(A, D, C)
polígono4, c_3, d_2, b_2 = Polygon(D, B, C)
polígono5, e_2, c_4, b_3 = Polygon(C, B, E)
F = Midpoint(A, E)
G = Midpoint(D, A)
H = Midpoint(D, B)
I = Midpoint(B, E)
α = 0 rad (slider from 0*° to 180*°, step 0.017453292519943295)
A' = Rotate(A, α, F)
C' = Rotate(C, α, F)
E' = Rotate(E, α, F)
polígono2', e', a', c' = Polygon(A', C', E')
A'_1 = Rotate(A, -α, G)
D' = Rotate(D, -α, G)
C'_1 = Rotate(C, -α, G)
polígono3', c'_1, a'_1, d' = Polygon(A'_1, D', C'_1)
C'_2 = Rotate(C, -α, I)
B' = Rotate(B, -α, I)
E'_1 = Rotate(E, -α, I)
polígono5', e'_1, c'_2, b' = Polygon(C'_2, B', E'_1)
D'_1 = Rotate(D, α, H)
B'_1 = Rotate(B, α, H)
C'_3 = Rotate(C, α, H)
polígono4', c'_3, d'_1, b'_1 = Polygon(D'_1, B'_1, C'_3)