A função cos() em Perl

Na linguagem de programação Perl possui a função de cos(). Esta função retorna o valor da função trigonometric o cosseno de seu argumento.

Aqui está um exemplo:

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

Este programa irá imprimir na tela o número de -1. O cosseno π é -1, e é isso o que imprime o programa.

Argumentos

my $value = cos($rad);

O argumento Perl função cos() é um número expresso em radianos.

Se a função cos() de passar um argumento, a função será a de trabalhar com ele.

Se não passar nenhum argumento, a função irá trabalhar com a variável $_. Aqui está um exemplo (o programa apresenta o número de 1):

▶ Run
#!/usr/bin/perl

$_ = 2 * 3.14159265358979;

print cos;

Se a função cos() de transmitir mais do que um argumento, então o erro será:

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

O valor de retorno

A função cos() sempre retorna o número. O intervalo de possíveis valores que variam de -1, até 1.

Exemplo de retorno: 0.995004165278026 (esse valor será quando você usa o argumento 0.1).

O trabalho com graus de

O argumento cos() é um número expresso em radianos. Se você precisa calcular o cosseno graus, a sua necessidade de traduzir em radianos. Para a conversão de graus em radianos é a fórmula rad = degree * π/180.

Aqui está um exemplo de um programa que exibe a tabela de graus, radianos e o valor do cosseno:

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

Neste programa usa um módulo Perl Math::Trig. Quando se torna disponível para o recurso de pi(), que retorna o número de π.

Aqui está a saída deste programa:

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

Temas relacionados

A documentação oficial

Aqui está a saída do comando 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] ) }

Outros artigos