FC2ブログ

# アルーン Aroon Indicator
# 引数 期間 高値 安値 ($Period, \@High, \@Low)
# 戻り値 hash {'up'} {'down'} {'osi'} (%aroon)
sub AROON{
my ($Period, $High, $Low) = @_;
my %aroon = ();
my $count = @$High - ($Period + 1);

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

# 計算
for(my $i = $count; $i >= 0; $i--){
my @highest = ($$High[$i], 0);
my @lowest = ($$Low[$i], 0);

# [0] 値 [1] 経過期間
for(my $j = 1; $j <= $Period; $j++){
# 最高値
if($highest[0] < $$High[$i + $j]){
$highest[0] = $$High[$i + $j];
$highest[1] = $j;
}
# 最安値
if($lowest[0] > $$Low[$i + $j]){
$lowest[0] = $$Low[$i + $j];
$lowest[1] = $j;
}
}

# アルーン Aroon Indicator
$aroon{'up'}->[$i] = (($Period - $highest[1]) / $Period) * 100;
$aroon{'down'}->[$i] = (($Period - $lowest[1]) / $Period) * 100;

# アルーン Aroon Oscillator
$aroon{'osi'}->[$i] = $aroon{'up'}->[$i] - $aroon{'down'}->[$i];
}

return %aroon;
}


参考URL
テクニカル分析│Aroon Indicator (アルーン・インディケーター) 考案者:トゥーシャー・シャンデ (Tushar Chande) 1995年
テクニカル分析│Aroon Oscillator (アルーン・オシレーター) 考案者:トゥーシャー・シャンデ (Tushar Chande) 1995年
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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