Chức năng sin() trong Perl

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

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

▶ Run
#!/usr/bin/perl

print sin( -3.14159265358979 / 2 );

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

Lập luận

my $value = sin($rad);

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

Nếu các chức năng sin() để 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

$_ = 3.14159265358979 / 2;

print sin;

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

Too many arguments for sin 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 sin() 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.0998334166468282 (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 sin() là một trong số học. Nếu bạn cần phải tính toán the sin of độ, 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à sin tỷ lệ:

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

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

Chủ đề liên quan

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

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

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