Fonction cos() en Perl

Dans le langage de programmation Perl, il ya une fonction intégrée cos(). Cette fonction renvoie la valeur тригонометрической de la fonction cosinus de son argument.

Voici un exemple:

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

Ce programme affiche le nombre de -1. Cosinus π est -1, il affiche le programme.

Les arguments

my $value = cos($rad);

L'argument de la fonction Perl cos() est un nombre en radians.

Si la fonction cos() transmettre un argument, la fonction sera de travailler avec lui.

Si vous ne transmettre aucun argument, la fonction va travailler avec la variable $_. Voici un exemple (le programme affiche le nombre de 1):

▶ Run
#!/usr/bin/perl

$_ = 2 * 3.14159265358979;

print cos;

Si la fonction cos() de transmettre plus d'un argument, ce serait une erreur:

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

La valeur de retour

La fonction cos() renvoie toujours un nombre. Les valeurs possibles de -1, à 1.

Exemple de valeur de retour: 0.995004165278026 (cette valeur sera lors de l'utilisation de l'argument 0.1).

Travail avec des degrés

L'argument cos() est un nombre exprimé en radians. Si vous avez besoin de calculer le cosinus de degrés, alors il faut les traduire en radians. Pour les degrés en radians est la formule rad = degree * π/180.

Voici un exemple de programme qui affiche la table avec des degrés, radians et le cosinus:

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

Dans ce programme, utilisez le module Perl Math::Trig. Lorsque la connexion est disponible à la fonction pi(), qui retourne le nombre de π.

Voici la conclusion de ce programme:

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

Thèmes connexes

La documentation officielle

Voici la sortie de la commande 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] ) }

Autres articles