réciproque du théorème de Thalès
Author: Carine Fournier

RECIPROQUE DU THEOREME DE THALES

A = (7.86, -0.96)
X = (-3.7, -3.68)
d = Line(A, X)
Y = (-3.42, 2.24)
d' = Line(A, Y)
B = Point(d)
C = Point(d')
N = Point(d')
M = Point(d)
poly1, a, c, b = Polygon(C, B, A)
poly2, m, e, n = Polygon(A, M, N)
distanceCA = Distance(C, A)
distanceAM = Distance(A, N)
TexteAM: Name[A] + (Name[N]) + " \, = \, " + distanceAM
distanceNA = Distance(M, A)
TexteNA: Name[M] + (Name[A]) + " \, = \, " + distanceNA
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " \, = \, " + distanceAB
TexteCA: Name[C] + (Name[A]) + " \, = \, " + distanceCA
distanceCB = Distance(C, B)
TexteCB: Name[C] + (Name[B]) + " \, = \, " + distanceCB
distanceMN = Distance(M, N)
TexteMN: Name[M] + (Name[N]) + " \, = \, " + distanceMN
texte4: "CB/MN=" + (a / e)
texte3: " \frac{ AC }{AN } =" + (b / n)
texte1: " \frac{ AB }{AM } =" + (c / m)