Funktion cos() i Perl

I programmeringssproget Perl har en indbygget funktion cos(). Denne funktion returnerer værdien af trigonometriske funktioner cosinus af dit argument.

Her er et eksempel:

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

Dette program vil vise antallet -1. Cosinus π er -1, dette er, hvad der vises af programmet.

Argumenter

my $value = cos($rad);

Argument Perl funktioner cos() er et nummer i radianer.

Hvis funktioner cos() for at bestå en enkelt argument, vil funktionen virke på det.

Hvis du ikke kan passere ethvert argument, vil funktionen virke med standard variable $_. Her er et eksempel (programmet viser antallet 1):

▶ Run
#!/usr/bin/perl

$_ = 2 * 3.14159265358979;

print cos;

Hvis funktioner cos() pass mere end ét argument, vil det fejl:

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

Return værdi

Funktion cos() altid returnerer et tal. Antallet af mulige værdier er -1, til at 1.

Eksempel på returnerede værdi: 0.995004165278026 (denne værdi er, når du bruger det argument, 0.1).

Arbejde med grader

Argumentet cos() er et nummer i radianer. Hvis du har brug for at beregne cosinus grader, for at de skal konverteres til radianer. Til at konvertere grader til radianer bruge formlen rad = degree * π/180.

Her er en prøve program der udskriver en tabel med grader, radianer og cosinus-forhold:

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

Programmet bruger et Perl-modul Math::Trig. Når forbindelsen bliver tilgængelig funktion pi(), der returnerer antallet π.

Her er resultatet af dette program:

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

Relaterede emner

Officiel dokumentation

Her er outputtet af kommandoen 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] ) }

Andre artikler