기능 cos() 에서는 Perl

에서는 Perl 프로그래밍 언어가 내장된 기능 cos(). 이 함수의 값을 반환합니다 삼각함수 코사인의 인수입니다.

예를 들어 다음과 같습니다.

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

이 프로그램이 표시됩니다 수 -1. 코사인 π-1이 무엇인가에 의해 표시되는 프로그램입니다.

인수

my $value = cos($rad);

수 Perl 기능 cos() 번호 라디안입니다.

는 경우 기능 cos() 을 통과하는 하나의 인수 기능을 작동할 것입니다.

전달하지 않는 경우는 모든 인수,함수와 함께 작동하 는 기본 변수 $_. 여기에 예를 들어(프로그램 번호가 표시됩 1):

▶ Run
#!/usr/bin/perl

$_ = 2 * 3.14159265358979;

print cos;

는 경우 기능 cos() 전달 하나 이상의 인수,그것은 오류가:

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

반환 값

기능 cos() 항상 수를 반환합니다. 의 범위는 가능한 값은 -1,을 1.

예를 반환 값: 0.995004165278026 (이 값을 사용할 때 인수 0.1).

작업도

인수 cos() 번호 라디안입니다. 필요하신 경우에는 계산 코사인 도,그들이 필요로 하는 것 라디안으로 변환됩니다. 변환하 도하 라디안 사용할 수식 rad = degree * π/180.

여기에 샘플 프로그램을 인쇄하는 테이블과 도,라디안,코사인의 비율:

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

프로그램을 사용하여 Perl 모듈 Math::Trig. 할 때 연결이 사용할 수 있는 기능 pi(), 는 수를 반환합니다 π.

여기에는 이 프로그램의 출력:

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

관련 주제

공식적인 문서

여기에 출력하는 명령의 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] ) }

다른 기사