Y/X のアークタンジェントを取得
Y/X のアークタンジェントを -π ~ π の範囲で返します。
use Math::Trig 'pi';
my $rad = atan2 1, 2; # ラジアン
my $deg = $rad * 180 / pi; # ラジアンを度に変換
print $deg; # 26.565051177078°
アークタンジェントは、下図のような底辺の長さが X、高さが Y の直角三角形の角度を表します。
atan2
には第一引数に高さを表す Y を、第二引数に底辺の長さを表す X を指定します。
そして、角度をラジアンで返します。