\vec{AB}

Q = (3.3594280334413646, -2.886604959641055, 3)
A = (-3.1433507166818337, 3.278357804422029, 2.4595799697781633)
B = (3.387376324395184, -4.944708843721681, -2.713418858174599)
u = Vector(A, B)
α = -0.3 (slider from -2 to 2, step 0.05)
w_1: (α * u)
P = Translate(A, w_1)
d = Line(B, A)
v = Vector(A, P)
w = Vector(A, Q)
A' = Translate(A, w)
a = Vector(A, A')
texte1: "\vec{AP}=" + (LaTeX[α]) + "\vec{AB}"