 |
 |
 |
構文 |
|
|
cos ラジアン値 |
|
返り値 |
|
|
コサイン（余弦） |
|
説明
- 指定したラジアン値のコサイン(余弦)を返します。
- 引数を省略すると$_が対象になります。
使用例
コサインのグラフを書く
#!/usr/bin/perl
use strict;
use warnings;
my $pi = 3.14159;
my $i = 0;
while ($i <= 720) {
my $rad = $i * ($pi / 180);
my $val = (1 + cos($rad)) * 40;
print ' ' x $val, "*\n";
$i += 5;
}コサイン30度・45度・60度・90度・180度・270度・360度の取得
#!/usr/bin/perl
use strict;
use warnings;
use Math::Trig;
my @degs = (
30, 45, 60, 90, 180, 270, 360,
);
foreach my $deg (@degs) {
my $rad = deg2rad($deg);
printf "角度=%d cos=%f\n", $deg, cos($rad);
}
