Fonction atan2() en Perl

Dans le langage de programmation Perl, il ya une fonction intégrée atan2(). L'objectif principal de la fonction de cette conversion du système de coordonnées cartésiennes dans le nord.

Voici un exemple:

▶ Run
#!/usr/bin/perl

print atan2(321, 100);

Ce programme affiche 1.26879861219712.

Les arguments

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

Les arguments de la fonction Perl atan2() est un nombre de deux.

Si la fonction atan2() ne pas transmettre ni un argument, ou de transmettre un seul argument, ce serait une erreur:

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

La fonction n'utilise pas дефолтную la variable $_. Si vous avez besoin de l'utiliser, il faut clairement passer à la fonction atan2($_, 1);

Si la fonction atan2() transmettre plus de deux arguments, ce serait une erreur:

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

La valeur de retour

La fonction atan2() renvoie toujours un nombre. atan2($y, $x) renvoie l'arctangente de $y/$x. Les valeurs possibles de , jusqu'à π, c'est-à-dire de -3.14159265358979 à 3.14159265358979.

La documentation officielle

Voici la sortie de la commande 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.

Thèmes connexes

Autres articles