FC2ブログ

# リュカ多項式 Lucas Polynomial
# 引数 整数 値 ($n, $X)
# 戻り値 リュカ多項式 ($LucasPolynomial)
sub LUCASPOLYNOMIALl{
my ($n, $X) = @_;
my $LucasPolynomial = (1 * $X);
my $PrevLucasPolynomial = 2;
my $Temp = 0;
my $N = abs(int($n));

if($N == 0){
return 2;
}elsif($N == 1){
$LucasPolynomial = -$LucasPolynomial if($n < 0);

return $LucasPolynomial;
}

# 計算
for(my $i = 2; $i <= $N; $i++){
$Temp = ($X * $LucasPolynomial) + $PrevLucasPolynomial;

# 一つ前
$PrevLucasPolynomial = $LucasPolynomial;
# リュカ多項式 Lucas Polynomial
$LucasPolynomial = $Temp;
}

# 負の番号への拡張
if($n < 0){
$LucasPolynomial = ((-1) ** $N) * $LucasPolynomial;
}

return $LucasPolynomial;
}


参考URL
Fibonacci polynomial and the Pascal Triangle
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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