18 lines
361 B
Mathematica
18 lines
361 B
Mathematica
|
function [ theta ] = XY2Theta( x, y )
|
||
|
|
|
||
|
|
if (x >= 0 && y >= 0)
|
||
|
|
theta = 180/pi * atan(y/x);
|
||
|
|
end
|
||
|
|
if (x < 0 && y >= 0)
|
||
|
|
theta = 180 - ((180/pi) * atan(y/(-x)));
|
||
|
|
end
|
||
|
|
if (x < 0 && y < 0)
|
||
|
|
theta = 180 + ((180/pi) * atan(y/x));
|
||
|
|
end
|
||
|
|
if ( x >= 0 && y < 0)
|
||
|
|
theta = 360 - ((180/pi) * atan((-y)/x));
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|
||
|
|
|