FC2ブログ

# ジグザグ数 ZigZag Number
# 引数 整数 ($n)
# 戻り値 ジグザグ数 ($ZigZagNumber)
sub ZIGZAGNUMBER{
my ($n) = @_;
my @ZigZagNumber = (1);
my @ZigZag = (1);
my $PrevZigZag = 0;
my $Temp = 0;
my $N = int($n);

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

# 計算
for(my $i = 1; $i <= $N; $i++){
$PrevZigZag = 0;
# 最後尾
$ZigZag[$i] = 0;

if(($i % 2) == 1){
# 奇数 タンジェント数 Zag Number
for(my $j = 0; $j <= $i; $j++){
$Temp = $ZigZag[$j] + $PrevZigZag;

# オイラー数で使用
$ZigZag[$j] = $PrevZigZag;
# 次回使用する値
$PrevZigZag = $Temp;
}
}else {
# 遇数 オイラー数 Zig Number
for(my $j = $i - 1; $j >= 0; $j--){
$Temp = $ZigZag[$j] + $PrevZigZag;

# タンジェント数で使用
$ZigZag[$j] = $Temp;
# 次回使用する値
$PrevZigZag = $Temp;
}
}

# ジグザグ数 ZigZag Number
$ZigZagNumber[$i] = $Temp;
}

return @ZigZagNumber;
}


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

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

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

検索フォーム


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