geo-001-tales-teorema

Puntos rectas.

S = (1.5, -1.3)
R = (0.7, 2.5)
b = Line(R, S)
A' = Point(b)
Q = (-1.9, -1.3)
P = (-1.3, 2.7)
a = Line(P, Q)
C = Point(a)
B = Point(a)
g = Segment(B, C)
A = Point(a)
c = Line(A, A')
d = Line(B, c)
B' = Intersect(b, d)
e = Line(C, d)
C' = Intersect(b, e)
i = Segment(B', C')
s: i / g
f = Segment(A, B)
h = Segment(A', B')
r: h / f
texto1: "$\frac{A'B'}{AB}= " + (LaTeX[r]) + "$"
texto2: "$\frac{B'C'}{BC}=" + (LaTeX[s]) + "$"
j = false