FC2ブログ

# Volatility Ratio
# 引数 終値 高値 安値 ($Period, $Close, $High, $Low)
# 戻り値 VolatilityRatio (@vr)
sub VR{
my ($Period, $Close, $High, $Low) = @_;
my @vr = ();
my $count = @$Close - ($Period + 1);

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

# 計算
for(my $i = $count; $i >= 0; $i--){
my $h_l = $$High[$i] - $$Low[$i];
my $h_c = $$High[$i] - $$Close[$i + 1];
my $c_l = $$Close[$i + 1] - $$Low[$i];
my $true_high = $$High[$i];
my $true_low = $$Low[$i];
my $tr = 0;

# True Range
$tr = $h_l > $h_c ? $h_l : $h_c;
$tr = $tr > $c_l ? $tr : $c_l;
# highest lowest
for(my $j = 1; $j < $Period; $j++){
$true_high = $$High[$i + $j] if($$High[$i + $j] > $true_high);
$true_low = $$Low[$i + $j] if($true_low > $$Low[$i + $j]);
}

# Volatility Ratio
$vr[$i] = $tr / ($true_high - $true_low);
}

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

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

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

検索フォーム


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