Théorème de Thalès
Author: Yvan Monka - m@ths et tiques 2006

A = (1, 0.5666666666666667)
B = (9.633333333333333, 8.6)
C = (13.666666666666666, 1.4333333333333333)
P, c, a, b = Polygon(A, B, C)
d = Line(A, B)
e = Line(A, C)
D = Point(e)
E = Point(d)
j = Segment(B, C)
f = Ray(B, A)
g = Ray(C, A)
B' = Point(f)
h = Line(B', j)
C' = Intersect(g, h)
Q, a_1, c', b' = Polygon(C', B', A)
T1: "\frac{AB'}{AB}=" + (LaTeX[Segment[A, B'] / Segment[A, B]]) + ""
T2: "\frac{AC'}{AC}=" + (LaTeX[Segment[A, C'] / Segment[A, C]]) + ""
T3: "\frac{B'C'}{BC}=" + (LaTeX[Segment[B', C'] / Segment[B, C]]) + ""