FC2ブログ

# Regularized Exponential Moving Average
# 引数 期間 Lambda 値 ($Period, $Lambda, $Price)
# 戻り値 RegularizedExponentialMovingAverage (@rema)
sub REMA{
my ($Period, $Lambda, $Price) = @_;
my @rema = ();
my $alpha = 2 / ($Period + 1);
my $count = @$Price - 3;

# 期間,$Lambda,配列数の確認
if(($Period <= 0) || ($Lambda < 0) || ($count < 0)){
return 0;
}

# 計算
$rema[$count + 1] = $$Price[$count + 1];
$rema[$count + 2] = $$Price[$count + 2];
for(my $i = $count; $i >= 0; $i--){
# RegularizedExponentialMovingAverage
$rema[$i] = ($rema[$i + 1] + ($alpha * ($$Price[$i] - $rema[$i + 1])) + ($Lambda * ($rema[$i + 1] + ($rema[$i + 1] - $rema[$i + 2])))) / (1 + $Lambda);
}

return @rema;
}

オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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