La función de sin() en Perl

En el lenguaje de programación Perl tiene integrada la función de sin(). Esta función devuelve el valor de тригонометрической funciones seno de su argumento.

He aquí un ejemplo:

▶ Run
#!/usr/bin/perl

print sin( -3.14159265358979 / 2 );

Este programa mostrará en pantalla el número de -1. El seno de un -π/2 es -1, esto es lo que muestra el programa.

Los argumentos

my $value = sin($rad);

El argumento de Perl de la función sin() es un número en radianes.

Si la función de sin() enviar un argumento, entonces la función será trabajar con él.

Si no pasa ningún argumento, entonces la función será trabajar con la variable $_. He aquí un ejemplo (el programa mostrará el número de 1):

▶ Run
#!/usr/bin/perl

$_ = 3.14159265358979 / 2;

print sin;

Si la función de sin() enviar más de un argumento, lo que se producirá un error:

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

El valor devuelto

La función de sin() siempre devuelve el número. El rango de valores posibles de -1, hasta 1.

Ejemplo de valor devuelto: 0.0998334166468282 (este valor será cuando se utiliza el argumento 0.1).

El trabajo con grados

El argumento sin() es un número en radianes. Si se debe calcular el seno de un grados, se deben traducir en radianes. Para la conversión de grados a radianes utiliza la fórmula de rad = degree * π/180.

He aquí un ejemplo de un programa que muestra la tabla con los grados, radianes y el valor del 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);
}

Este programa utiliza un módulo de Perl Math::Trig. Si su conexión está disponible la función de pi(), que devuelve el número de π.

Aquí está la salida de este 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

La documentación oficial

He aquí el resultado del 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])) }

Otros articulos