A função sin() em Perl

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

Aqui está um exemplo:

▶ Run
#!/usr/bin/perl

print sin( -3.14159265358979 / 2 );

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

Argumentos

my $value = sin($rad);

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

Se a função sin() 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

$_ = 3.14159265358979 / 2;

print sin;

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

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

O valor de retorno

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

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

O trabalho com graus de

O argumento sin() é um número expresso em radianos. Se você precisa calcular o seno de 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 seno:

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

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  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

Temas relacionados

A documentação oficial

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

Outros artigos