Функция atan2() в Perl

В языке программирования Perl есть встроенная функция atan2(). Основное назначение функции это преобразование из декартовой системы координат в полярную.

Вот пример:

▶ Run
#!/usr/bin/perl

print atan2(321, 100);

Эта программа выведет на экран 1.26879861219712.

Аргументы

my $value = atan2($y, $x);

Аргументы Perl функции atan2() — это два числа.

Если функции atan2() не передать ни одного аргумента, или передать ровно один аргумент, то будет ошибка:

Not enough arguments for atan2 at script.pl line 3, near "atan2()"
Execution of script.pl aborted due to compilation errors.

Функция не использует дефолтную переменную $_. Если есть необходимость ее использовать, то ее нужно явно передать в функцию atan2($_, 1);

Если функции atan2() передать больше чем два аргумента, то будет ошибка:

Too many arguments for atan2 at script.pl line 3, near "3)"
Execution of script.pl aborted due to compilation errors.

Возвращаемое значение

Функция atan2() всегда возвращает число. atan2($y, $x) возвращает арктангенс от $y/$x. Диапазон возможных значений — от , до π, т.е. от -3.14159265358979 до 3.14159265358979.

Официальная документация

Вот вывод команды perldoc -f atan2:

    atan2 Y,X
            Returns the arctangent of Y/X in the range -PI to PI.

            For the tangent operation, you may use the "Math::Trig::tan"
            function, or use the familiar relation:

                sub tan { sin($_[0]) / cos($_[0])  }

            The return value for "atan2(0,0)" is implementation-defined;
            consult your atan2(3) manpage for more information.

            Portability issues: "atan2" in perlport.

Связанные темы

Другие статьи