v={2,-1,3};
w={1,4,-1};
z={3,2,1};
Dot[v,Cross[w,z]]
Det[{v,w,z}]