Fonction sin() en Perl

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

Voici un exemple:

▶ Run
#!/usr/bin/perl

print sin( -3.14159265358979 / 2 );

Ce programme affiche le nombre de -1. Le sinus -π/2 est -1, il affiche le programme.

Les arguments

my $value = sin($rad);

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

Si la fonction sin() 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

$_ = 3.14159265358979 / 2;

print sin;

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

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

La valeur de retour

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

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

Travail avec des degrés

L'argument sin() est un nombre exprimé en radians. Si vous avez besoin de calculer le sinus degrés, vous devez 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 sinus:

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

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

Thèmes connexes

La documentation officielle

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

Autres articles