Fungsi cos() di Perl

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

Berikut ini sebuah contoh:

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

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

Argumen

my $value = cos($rad);

Argumen fungsi Perl cos() adalah bilangan dalam radian.

Jika fungsi cos() 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

$_ = 2 * 3.14159265358979;

print cos;

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

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

Nilai kembali

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

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

Bekerja dengan derajat

Argumen cos() adalah bilangan dalam radian. Jika anda perlu untuk menghitung cosinus derajat, bahwa 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 kosinus rasio:

▶ Run
#!/usr/bin/perl

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

use Math::Trig;

say 'deg      rad  cos(rad)';

for (my $degree = 0; $degree<=360; $degree += 15) {
    my $rad = $degree * pi() / 180;
    say sprintf '%3d  %0.5f  % 0.5f', $degree, $rad, cos($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  cos(rad)
  0  0.00000   1.00000
 15  0.26180   0.96593
 30  0.52360   0.86603
 45  0.78540   0.70711
 60  1.04720   0.50000
 75  1.30900   0.25882
 90  1.57080   0.00000
105  1.83260  -0.25882
120  2.09440  -0.50000
135  2.35619  -0.70711
150  2.61799  -0.86603
165  2.87979  -0.96593
180  3.14159  -1.00000
195  3.40339  -0.96593
210  3.66519  -0.86603
225  3.92699  -0.70711
240  4.18879  -0.50000
255  4.45059  -0.25882
270  4.71239  -0.00000
285  4.97419   0.25882
300  5.23599   0.50000
315  5.49779   0.70711
330  5.75959   0.86603
345  6.02139   0.96593
360  6.28319   1.00000

Topik terkait

Dokumentasi resmi

Berikut ini adalah output dari perintah perldoc -f cos:

       cos EXPR
       cos     Returns the cosine of EXPR (expressed in radians).  If EXPR is
               omitted, takes the cosine of $_.

               For the inverse cosine operation, you may use the
               "Math::Trig::acos()" function, or use this relation:

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

Artikel lainnya