功能 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() 总是返回的数量。 范围的可能值 -11.

例的返回值: 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] ) }

其他文章