Funkcja cos() w Perl

W języku programowania Perl jest wbudowana funkcja cos(). Funkcja ta zwraca wartość тригонометрической funkcji cosinus swój argument.

Oto przykład:

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

Ten program wypisze na ekran liczba -1. Cosinus π to -1, to wyświetla program.

Argumenty

my $value = cos($rad);

Argument Perl funkcji cos() — oznacza liczbę w radianach.

Jeśli funkcje cos() przekazać jeden argument, to funkcja będzie z nim pracować.

Jeśli nie oddać ani jednego argumentu funkcja będzie działać z дефолтной zmiennej $_. Oto przykład (program wyświetli liczbę 1):

▶ Run
#!/usr/bin/perl

$_ = 2 * 3.14159265358979;

print cos;

Jeśli funkcje cos() przekazać więcej niż jeden argument, to będzie błąd:

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

Wartość zwracana

Funkcja cos() zawsze zwraca liczbę. Zakres możliwych wartości — od -1, do 1.

Przykład zwracanej wartości: 0.995004165278026 (to jest wartość będzie przy użyciu argumentu 0.1).

Praca ze stopniami

Argument cos() — oznacza liczbę w radianach. Jeśli chcesz obliczyć cosinus stopni, to trzeba je przetłumaczyć na radiany. Aby przeliczyć stopnie na radiany wykorzystywana jest formuła rad = degree * π/180.

Oto przykład programu, który wyświetla tabelę z stopniami, radiany i wartość cosinus:

▶ 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);
}

W tym programie jest używany moduł Perl Math::Trig. Po podłączeniu staje się dostępna funkcja pi(), która zwraca liczbę π.

Oto wniosek z tego programu:

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

Tematy pokrewne

Oficjalna dokumentacja

Oto wynik polecenia 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] ) }

Inne artykuły