ABCD est un carré, E intérieur.
A quelle condition les aires rouge et verte
sont-elles égales ?

B = (5.42, -2.1)
A = (-1.6, -2.06)
a = Segment(A, B)
l = OrthogonalLine(B, a)
E = (2.14, 3.66)
poly1, a_1, e_1, b_1 = Polygon(E, B, A)
Textepoly1: "Aire de  " + (Name[E]) + (Name[B]) + (Name[A]) + " = " + poly1
i = OrthogonalLine(E, a)
H = Intersect(i, a)
k = Segment(E, H)
β = Angle(E, H, A)
p = Circle(B, A)
C = Intersect(p, l, 2)
poly2, b, e, c = Polygon(E, C, B)
f = OrthogonalLine(C, l)
g = OrthogonalLine(A, a)
D = Intersect(f, g)
h = Segment(A, D)
j = Segment(D, C)
Textepoly2: "Aire de  " + (Name[E]) + (Name[C]) + (Name[B]) + " = " + poly2
Pointpoly2 = PointIn(poly2)
m = OrthogonalLine(E, e)
K = Intersect(m, e)
n = Segment(E, K)
α = Angle(C, K, E)