Chức năng cos() trong Perl

Perl ngôn ngữ đã được tích hợp trong chức năng cos(). Này chức năng trở về các giá trị của hàm lượng giác cô sin lập luận của bạn.

Đây là một ví dụ:

▶ Run
#!/usr/bin/perl

print cos( 3.14159265358979 );

Chương trình này sẽ hiển thị số -1. Các cô π-1, đây là những gì được hiển thị của chương trình.

Lập luận

my $value = cos($rad);

Lập luận Perl chức năng cos() là một số trong định.

Nếu các chức năng cos() để vượt qua một cuộc tranh luận, các chức năng sẽ hoạt động vào nó.

Nếu anh không vượt qua mọi cuộc tranh cãi, các chức năng sẽ làm việc với những định biến $_. Đây là một ví dụ (chương trình hiển thị các số 1):

▶ Run
#!/usr/bin/perl

$_ = 2 * 3.14159265358979;

print cos;

Nếu các chức năng cos() vượt qua nhiều hơn một cuộc tranh luận, nó sẽ lỗi:

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

Trở lại giá trị

Chức năng cos() luôn luôn trở về một con số. Phạm vi giá trị có thể là -1, để 1.

Ví dụ của trở về giá trị: 0.995004165278026 (giá trị này là khi bạn sử dụng các lập luận 0.1).

Làm việc với độ

Các lập luận cos() là một trong số học. Nếu bạn cần phải tính toán cos độ, đó họ cần phải được chuyển đổi để học. Để đổi độ để học sử dụng công thức rad = degree * π/180.

Đây là một mẫu chương trình in một bàn với độ, học và cô tỷ lệ:

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

Chương trình sử dụng một Perl module Math::Trig. Khi kết nối trở nên có chức năng pi(), mà trả lại số π.

Đây là phần đầu của chương trình này:

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

Chủ đề liên quan

Tài liệu chính thức

Đây là kết quả của sự chỉ huy 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] ) }

Các bài viết khác