Funzione sin() in Perl

Nel linguaggio di programmazione Perl ci sono built-in funzione di sin(). Questa funzione restituisce il valore di una funzione trigonometrica seno dal suo argomento.

Ecco un esempio:

▶ Run
#!/usr/bin/perl

print sin( -3.14159265358979 / 2 );

Questo programma visualizza il numero di -1. Sine -π/2 è -1, questo è ciò che mostra programma.

Argomenti

my $value = sin($rad);

L'argomento Perl funzione sin() è un numero espresso in radianti.

Se la funzione sin() passare un solo argomento, la funzione di lavorare con lui.

Se non trasmettere alcun argomento, la funzione sarà lavorare con una variabile $_. Ecco un esempio (il programma visualizzerà il numero di 1):

▶ Run
#!/usr/bin/perl

$_ = 3.14159265358979 / 2;

print sin;

Se la funzione sin() di trasferire più di un argomento, quello è un errore:

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

Il valore restituito

Funzione sin() restituisce sempre il numero. Intervallo di valori possibili — da -1, fino a 1.

Un esempio di valore restituito: 0.0998334166468282 (tale valore sarà quando si utilizza l'argomento 0.1).

Il lavoro con i gradi

L'argomento sin() è un numero espresso in radianti. Se si desidera calcolare il seno di gradi, il loro bisogno di tradurre in radianti. Per la traduzione gradi in radianti viene utilizzata la formula rad = degree * π/180.

Ecco un esempio di un programma che consente di visualizzare la tabella con i gradi, radianti e il valore 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);
}

In questo programma viene utilizzato un modulo Perl Math::Trig. Quando si effettua la connessione, è disponibile una funzione pi(), che restituisce il numero di π.

Ecco l'output di questo programma:

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

Temi correlati

La documentazione ufficiale di

Ecco l'output 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])) }

Altri articoli