v = (2.457157665787404, 1.1942142162987657)
O = (0, 2)
r = Line(O, v)
C = Point(r)
λ_C = AffineRatio(O, O + v, C)
texto2: "La recta r está definida como:   Recta[O, v]" + "" + "

Mueve C:" + "
λ_C = RazónSimple[O, O+v, C] = " + λ_C + "" + "

Estira y encoge v tirando de la flecha"