Fungsi atan2() di Perl

Dalam bahasa pemrograman Perl memiliki fungsi built-in atan2(). Tujuan utama dari fungsi adalah konversi dari Cartesian sistem koordinat polar.

Berikut ini sebuah contoh:

▶ Run
#!/usr/bin/perl

print atan2(321, 100);

Program ini menampilkan 1.26879861219712.

Argumen

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

Argumen untuk fungsi Perl atan2() — dua angka.

Jika fungsi atan2() tidak lulus setiap argumen, atau lulus tepat satu argumen, maka akan error:

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

Fungsi menggunakan default variabel $_. Jika ada kebutuhan untuk menggunakannya, maka ia harus secara eksplisit dilewatkan ke fungsi atan2($_, 1);

Jika fungsi atan2() dapat lulus lebih dari dua argumen, maka akan error:

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

Nilai kembali

Fungsi atan2() selalu mengembalikan jumlah. atan2($y, $x) kembali arctangent dari $y/$x. Kisaran nilai yang mungkin adalah , untuk π, yaitu, dari -3.14159265358979 untuk 3.14159265358979.

Dokumentasi resmi

Berikut ini adalah output dari perintah 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.

Topik terkait

Artikel lainnya