FC2ブログ

# タンジェント数 Tangent Number
# 引数 整数 ($n)
# 戻り値 タンジェント数 ($TangentNumber)
sub TANGENTRNUMBER{
my ($n) = @_;
my $TangentNumber = 1;
my $SumTangent = 0;
my $Sum = 0;
my $Combination = 0;
my $N = int($n);
my $N2 = (($N - 1) / 2) + 1;
my $N3 = $N + 2;
my $Power1 = 0;
my $Power2 = 0;

# 整数の確認
if($N < 0){
return 0;
}

if(($N % 2) == 0){
return 0;
}

# 計算
for(my $i = 1; $i <= $N2; $i++){
# 累乗
$Power1 = (-1) ** ($N2 - $i);
$Power2 = ($i) ** ((2 * $N2) - 1);
# 二項係数
$Combination = $N3;
$Sum = 1;

# 二項係数
for(my $j = 1; $j <= ($N2 - $i); $j++){
$Combination = $Combination / $j;
$Sum += $Combination;
$Combination = $Combination * ($N3 - $j);
}

$SumTangent += $Power1 * $Power2 * $Sum;
}

# タンジェント数 Tangent Number
$TangentNumber = $SumTangent;

return $TangentNumber;
}


参考URL
タンジェント数 - Wikipedia
オイラー数とタンジェント数
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない

5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用

検索フォーム


あわせて読みたいブログパーツ
一寸先は闇 RSS