Funktion atan2() i Perl

I programmeringssproget Perl har en indbygget funktion atan2(). Det vigtigste formål med funktionen, konverteringen fra Kartesisk koordinatsystem til polar.

Her er et eksempel:

▶ Run
#!/usr/bin/perl

print atan2(321, 100);

Dette program viser 1.26879861219712.

Argumenter

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

Argumenter for at Perl-funktionen atan2() — to numre.

Hvis funktioner atan2() ikke kan passere ethvert argument, eller passere præcis ét argument, vil det fejl:

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

Funktionen bruger den standard variable $_. Hvis der er behov for at bruge det, så det skal være udtrykkeligt overføres til funktionen atan2($_, 1);

Hvis funktioner atan2() kan passere mere end to argumenter, vil det fejl:

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

Return værdi

Funktion atan2() altid returnerer et tal. atan2($y, $x) returnerer arctan fra $y/$x. Antallet af mulige værdier er , at π, dvs, fra -3.14159265358979 til 3.14159265358979.

Officiel dokumentation

Her er outputtet af kommandoen 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.

Relaterede emner

Andre artikler