xmax = 6;
xmin = -xmax;
ymax = xmax;
ymin = -ymax;
zmax = xmax;
zmin = -zmax;

xaxis = Arrow[{{xmin,0,0}, {xmax,0,0}}]

yaxis = Arrow[{{0,ymin,0}, {0,ymax,0}}]

zaxis = Arrow[{{0,0,zmin}, {0,0,zmax}}]

Arrow[{{0,0,-5},{0,0,5}}]

VecArrow[u_] := Arrow[{{0,0,0}, u}]

u = {2,-2,1}

v = {1,-3,2}

angle = ArcCos[u.v / (Norm[u]*Norm[v])]

N[%]

%*180/Pi

w = Cross[u,v]

Graphics3D[{xaxis,yaxis,zaxis,
Text["x",{xmax+1,0,0}],
Text["y", {0,ymax+1,0}],
Text["z", {0,0,zmax+1}],
Orange, VecArrow[u],
Purple, VecArrow[v],
Blue, VecArrow[w],
}]