La función de cos() en Perl

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

He aquí un ejemplo:

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

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

Los argumentos

my $value = cos($rad);

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

Si la función de cos() 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

$_ = 2 * 3.14159265358979;

print cos;

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

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

El valor devuelto

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

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

El trabajo con grados

El argumento cos() es un número en radianes. Si se debe calcular el coseno de 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 coseno:

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

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

La documentación oficial

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

Otros articulos