La función de atan2() en Perl

En el lenguaje de programación Perl tiene integrada la función de atan2(). El propósito principal de la función es la transformación de un sistema de coordenadas cartesianas en la polar.

He aquí un ejemplo:

▶ Run
#!/usr/bin/perl

print atan2(321, 100);

Este programa mostrará 1.26879861219712.

Los argumentos

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

Los argumentos de Perl de la función atan2() es dos números.

Si la función de atan2() no entregar ni un argumento, o enviar exactamente un argumento, lo que se producirá un error:

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

La función no se utiliza дефолтную variable $_. Si hay una necesidad de su uso, se debe distribuir de forma explícita en función de atan2($_, 1);

Si la función de atan2() pasar más de dos argumentos, lo que se producirá un error:

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

El valor devuelto

La función de atan2() siempre devuelve el número. atan2($y, $x) devuelve la arcotangente de $y/$x. El rango de valores posibles de , hasta π, es decir, de -3.14159265358979 hasta 3.14159265358979.

La documentación oficial

He aquí el resultado del comando 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.

Temas relacionados

Otros articulos