A função atan2() em Perl

Na linguagem de programação Perl possui a função de atan2(). O objetivo principal função é a conversão de coordenadas cartesianas o sistema de coordenadas polar.

Aqui está um exemplo:

▶ Run
#!/usr/bin/perl

print atan2(321, 100);

Este programa exibirá 1.26879861219712.

Argumentos

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

Os argumentos Perl função atan2() é dois números.

Se a função atan2() não passar nenhum argumento, ou passar exatamente um argumento, então o erro será:

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

A função não usa дефолтную variável $_. Se houver a necessidade de usá-lo, você precisa ser explicitamente para a função de atan2($_, 1);

Se a função atan2() de passar mais de dois argumentos, então o erro será:

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

O valor de retorno

A função atan2() sempre retorna o número. atan2($y, $x) retorna o arco tangente de $y/$x. O intervalo de possíveis valores que variam de , até π, т. е. de -3.14159265358979 a 3.14159265358979.

A documentação oficial

Aqui está a saída do 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

Outros artigos