Perl 標準関数: atan2 ======== ## atan2 atan2 Y,X Returns the arctangent of Y/X in the range -PI to PI. For the tangent operation, you may use the "{{cpan: Math::Trig::tan}}" function, or use the familiar relation: sub tan { sin($_[0]) / cos($_[0]) } atan2 関数は、Y, X の2引数をとり、-π~πの範囲でアークタンジェント(逆正接)を返します。 タンジェント(正接)を扱いたいなら、{{cpan: Math::Trig::tan}} を利用するか、次の関数を用います。 sub tan { sin($_[0]) / cos($_[0]) } ## atan2 サンプルコード print atan2(1, 1); # 0.785398163397448 (PI/4)