Funzione cos() in Perl

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

Ecco un esempio:

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

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

Argomenti

my $value = cos($rad);

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

Se la funzione cos() 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

$_ = 2 * 3.14159265358979;

print cos;

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

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

Il valore restituito

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

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

Il lavoro con i gradi

L'argomento cos() è un numero espresso in radianti. Se si desidera calcolare il coseno 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 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);
}

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

Temi correlati

La documentazione ufficiale di

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

Altri articoli