Fungsi sin() di Perl

Dalam bahasa pemrograman Perl memiliki fungsi built-in sin(). Fungsi ini mengembalikan nilai dari fungsi trigonometri sinus dari argumen anda.

Berikut ini sebuah contoh:

▶ Run
#!/usr/bin/perl

print sin( -3.14159265358979 / 2 );

Program ini akan menampilkan jumlah -1. Sinus -π/2 adalah -1, ini adalah apa yang ditampilkan oleh program.

Argumen

my $value = sin($rad);

Argumen fungsi Perl sin() adalah bilangan dalam radian.

Jika fungsi sin() untuk lulus satu argumen, fungsi akan beroperasi pada itu.

Jika anda tidak lulus setiap argumen, fungsi akan bekerja dengan default variabel $_. Berikut adalah contoh (program menampilkan jumlah 1):

▶ Run
#!/usr/bin/perl

$_ = 3.14159265358979 / 2;

print sin;

Jika fungsi sin() lulus lebih dari satu argumen, maka akan error:

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

Nilai kembali

Fungsi sin() selalu mengembalikan jumlah. Kisaran nilai yang mungkin adalah -1, untuk 1.

Contoh dikembalikan nilai: 0.0998334166468282 (nilai ini adalah ketika anda menggunakan argumen 0.1).

Bekerja dengan derajat

Argumen sin() adalah bilangan dalam radian. Jika anda perlu untuk menghitung sinus dari derajat, mereka harus dikonversi ke radian. Untuk mengkonversi derajat ke radian menggunakan rumus rad = degree * π/180.

Berikut ini adalah contoh program yang mencetak tabel dengan derajat, radian dan sinus rasio:

▶ Run
#!/usr/bin/perl

use utf8;
use strict;
use warnings;
use feature qw(say);

use Math::Trig;

say 'deg      rad  sin(rad)';

for (my $degree = 0; $degree<=360; $degree += 15) {
    my $rad = $degree * pi() / 180;
    say sprintf '%3d  %0.5f  % 0.5f', $degree, $rad, sin($rad);
}

Program ini menggunakan modul Perl Math::Trig. Bila sambungan tersedia fungsi pi(), yang mengembalikan jumlah π.

Berikut ini adalah output dari program ini:

deg      rad  sin(rad)
  0  0.00000   0.00000
 15  0.26180   0.25882
 30  0.52360   0.50000
 45  0.78540   0.70711
 60  1.04720   0.86603
 75  1.30900   0.96593
 90  1.57080   1.00000
105  1.83260   0.96593
120  2.09440   0.86603
135  2.35619   0.70711
150  2.61799   0.50000
165  2.87979   0.25882
180  3.14159   0.00000
195  3.40339  -0.25882
210  3.66519  -0.50000
225  3.92699  -0.70711
240  4.18879  -0.86603
255  4.45059  -0.96593
270  4.71239  -1.00000
285  4.97419  -0.96593
300  5.23599  -0.86603
315  5.49779  -0.70711
330  5.75959  -0.50000
345  6.02139  -0.25882
360  6.28319  -0.00000

Topik terkait

Dokumentasi resmi

Berikut ini adalah output dari perintah perldoc -f sin:

       sin EXPR
       sin     Returns the sine of EXPR (expressed in radians).  If EXPR is
               omitted, returns sine of $_.

               For the inverse sine operation, you may use the
               "Math::Trig::asin" function, or use this relation:

                   sub asin { atan2($_[0], sqrt(1 - $_[0] * $_[0])) }

Artikel lainnya