B = (2.361036952195845, 3.067028090147623)
A = (0, 2)
r = Line(A, B)
C = Point(r)
λ_C = AffineRatio(A, B, C)
v = Vector(A, B)
texto2: "La recta r está definida como:   Recta[A, B]" + "" + "

Mueve C:" + "
λ_C = RazónSimple[A, B, C] = " + λ_C + "" + "

Estira y encoge v moviendo B"