Effacer les traces obtenues en bougeant ce curseur

A = (0, 0)
B = (6, 0)
u = Vector(A, B)
C = (3.1278451247733003, 3.3735122957899653)
v = Vector(A, C)
p: u * v
texte1: " \vec{ AB }  \cdot  \vec{ AC } =" + p
D = Intersect(a, Line[A, C])
c = 1 (slider from 0 to 2, step 0.1)
E = Intersect(d, Line[A, C])