Unité

côté rationnel

Animer A'

A = (-2, 1.74)
B = (-3.22, -1.1)
C = (3.52, -1.1)
a = Segment(B, C)
b = Line(A, a)
c = Segment(A, B)
d = Line(C, c)
D = Intersect(b, d)
e = Segment(D, C)
A' = Point(b)
E = Midpoint(A', C)
D' = Mirror(B, E)
f = Segment(D, A)
poly1, a', b_1, c_1, d' = Polygon(A', B, C, D')
poly2, a_1, b_2, c_2, d_1 = Polygon(A, B, C, D)
Textepoly1: "Aire " + (Name[A']) + (Name[B]) + (Name[C]) + (Name[D']) + " = " + poly1
Textepoly2: "Aire " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + poly2
F = (-0.26, 2.62)
G = (0.74, 2.62)
g = Segment(F, G)
text2: "longueur BA'=" + a'
poly3, a'_1, a_2, b_3 = Polygon(A, B, A')
poly4, d'_1, d_2, c_3 = Polygon(D, C, D')