angle.m

来自「这里面有很多有用的东东」· M 代码 · 共 20 行

function a=Angle(X,Y)
%ANGLE	
%The angle between two vectors, X and Y,in degrees.
%Calling format: a = Angle(X,Y)

% Copyright 1991 Lisa Coulter. Stetson University.
% email: [e-mail]
% Accompanies "Linear Algebra with Applications" by Gareth Williams

temp = X*Y';
normX = sqrt(X*X');
normY = sqrt(Y*Y');
a = acos(temp/(normX*normY));
a = a*180/pi;

if (a < 1.0e-10) 
  a = 0;
end