FC2ブログ

# Volatility Trends
# 引数 期間 始値 高値 安値 終値($Period, $Open, $High, $Low, $Close)
# 戻り値 VolatilityTrends (@vt)
sub VT{
my ($Period, $Open, $High, $Low, $Close) = @_;
my @vt = ();
my @tr = ();
my $count = @$Close - ($Period + 1);

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

# 計算
@tr = &TR($Close, $High, $Low);
for(my $i = $count; $i >= 0; $i--){
my $sum = 0;

for(my $j = 0; $j < $Period; $j++){
# UP
if($$Open[$i + $j] < $$Close[$i + $j]){
$sum += $tr[$i + $j];
}else {
# DOWN
if($$Open[$i + $j] > $$Close[$i + $j]){
$sum -= $tr[$i + $j];
}
}
}

# Volatility Trends
$vt[$i] = $sum;
}

return @vt;
}


参考URL
perlでテクニカル分析 43 真の値幅 (True Range: TR)
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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