cosθ = ( ベクトルAとベクトルBの内積 ) / (ベクトルAの長さ * ベクトルBの長さ)

コード

v@A = {1,0,0};
v@B = {0,0,1};

f@rad = acos(dot(@B,@A)/length(@A)*length(@B));
f@deg = degrees(acos(dot(@A,@B)/length(@A)*length(@B)));

結果

@rad : 1.5708 @deg : 90.0