FC2ブログ

# エルダー線 Elder-Ray
# 引数 期間 高値 安値 値 ($Period, \@High, \@Low, \@Price)
# 戻り値 hash {'bull'} {'bear'} (@eray)
sub ERAY{
my ($Period, $High, $Low, $Price) = @_;
my %eray = ();
my @ema = ();
my $count = @$Price - $Period;

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

# 計算
@ema = &EMA($Period, $Price);
for(my $i = $count; $i >= 0; $i--){
# Elder-Ray
$eray{'bull'}->[$i] = $$High[$i] - $ema[$i];
$eray{'bear'}->[$i] = $$Low[$i] - $ema[$i];
}

return %eray;
}


参考URL
Elder-Ray (エルダー線) 考案者:アレクサンダー・エルダー(Alexander Elder) 1989年
perlでテクニカル分析 2 指数平滑移動平均 (Exponential Moving Average: EMA)
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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