Animation Croix dans un carré
Author: Irem

Vous pouvez déplacer le point E.

A = (0.7400000000000001, 4.24)
B = (5.299999999999999, 4.260000000000001)
poly1, a, b, c, d, C, D = Polygon(A, B, 4.0)
E = Point(c)
F = Intersect(Circle[C, Distance[D, E]], Segment[B, C])
e = Segment(C, F)
G = Intersect(Circle[D, Distance[D, E]], Segment[A, D])
f = Segment(D, G)
H = Intersect(Circle[A, Distance[D, E]], Segment[A, B])
g = Segment(A, H)
I = Intersect(Circle[B, Distance[D, E]], Segment[A, B])
h = Segment(B, I)
J = Intersect(Circle[B, Distance[D, E]], Segment[B, C])
i = Segment(B, J)
K = Intersect(Circle[A, Distance[D, E]], Segment[A, D])
j = Segment(A, K)
L = Intersect(Circle[C, Distance[D, E]], Segment[C, D])
k = Segment(C, L)
l = Line(E, J)
m = Line(L, K)
n = Line(G, I)
p = Line(H, F)
M = Intersect(l, m)
N = Intersect(l, p)
O = Intersect(n, p)
P = Intersect(m, n)
poly2, g_1, e_1, m_1, l_1, f_1, n_1, j_1, i_1, o, h_1, k_1, p_1 = Polygon(G, E, M, L, F, N, J, I, O, H, K, P)
Textepoly2: "Aire de la croix " + " = " + poly2
poly3, g_2, d_1, e_2 = Polygon(D, E, G)
poly4, l_2, e_3, m_2 = Polygon(E, M, L)
text1: "Aire restante" + "=" + (4.0 * (poly3 + poly4))
distanceDE = Distance(D, E)
TexteDE: "DE" + " =  " + distanceDE
text2: "différence des aires" + "=" + (poly2 - 4.0 * (poly3 + poly4))
distanceDC = Distance(D, C)
text3: "DE/DC" + "=" + (distanceDE / distanceDC)