v={2,-3,1};
w={1,1,-2};
Projection[v,w]
ArcCos[Dot[v,w]/(Norm[v]Norm[w])]*180/Pi//N