cos関数

「cos」関数はコサイン(余弦)を返します。

cos
cos([EXPR])

ラジアン単位で指定した引数のコサイン(余弦)を返します。

パラメータ:
  EXPR  角度(ラジアン単位)
戻り値：
  コサイン

1番目の引数には角度をラジアン単位で指定します。省略された場合は変数「$_」が使用されます。指定した角度に対するコサインが戻り値として返されます。

なお角度は「+π(180度)」から「-π(-180度)」の間の数値で指定します。(π=3.14159)。

具体的には次のように記述します。

my $pai = 3.14159;
my $num = cos($pai / 4);

上記では1/4π(45度)のコサインを計算します。

※サインについては「sin関数」を参照。タンジェントを計算する関数は用意されていないため、sinθ/cosθで計算します。

サンプルプログラム

では簡単なプログラムで確認して見ます。

test4-1.pl

use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $pai = 3.14159;
my $num;

$num = cos($pai / 4);
print "cos(π/4) = $num¥n";

$num = cos($pai / 6);
print "cos(π/6) = $num¥n";

上記を「test4-1.pl」の名前で保存します(文字コードはUTF-8です)。そしてコマンドプロンプトを起動し、プログラムを保存したディレクトリに移動してから次のように実行して下さい。

PerlPlus