Axes et pliages
Author: Daniel Mentrard

Vamos a hacer unos pliegues para hallar los ejes de simetría de esta figura geométrica.  

Moved el punto M.

D = (3, 7)
c1 = Line(D, yAxis)
A = (0, 0)
a1 = Line(A, xAxis)
K = Intersect(a1, c1)
d1 = Segment(A, K)
B = Point(a1)
C: (x(B) + d1, y(D))
poly1, c_1, d_1, e_5, f_6 = Polygon(A, B, C, D)
j = Line(C, B)
k = Line(D, C)
l = Line(A, B)
m = Line(D, A)
M = (10.280673251360612, 3.655225041034356)
c = LineBisector(M, C)
F_1 = Intersect(c, k)
G = Intersect(c, l)
H = Intersect(c, m)
I = Intersect(j, c)
B' = Mirror(B, c)
D' = Mirror(D, c)
A' = Mirror(A, c)
poly2, i, e, f = Polygon(M, F_1, I)
poly3, f_1, d, a_2, b_2, i_1 = Polygon(F_1, D, A, B, I)
poly4, f_2, e_1, b', g = Polygon(F_1, M, B', G)
poly5, f_3, d_2, a_3, g_1 = Polygon(F_1, D, A, G)
poly6, f_4, e_2, b'_1, a', h = Polygon(F_1, M, B', A', H)
poly7, h_1, f_5, d_3 = Polygon(F_1, D, H)
poly8, h_2, d', e_3, i_2 = Polygon(H, D', M, I)
poly9, h_3, a_4, b_3, i_3 = Polygon(H, A, B, I)
poly10, h_4, d'_1, e_4, b'_2, g_2 = Polygon(H, D', M, B', G)
poly11, g_3, h_5, a_5 = Polygon(H, A, G)
poly13, i_4, g_4, b_4 = Polygon(G, B, I)
poly12, n, p, q, r, s = Polygon(G, A', D', M, I)
E = Midpoint(D, C)
ok = If(Distance[M, D] ≤ 0.05, 1.0, 0.0)
J = Midpoint(C, M)