FC2ブログ

# True Range 真の値幅
# 引数 終値 高値 安値 ($Close, $High, $Low)
# 戻り値 TrueRange (@tr)
sub TR{
my ($Close, $High, $Low) = @_;
my @tr = ();
my $count = @$Close - 2;

# 配列数の確認
if((@$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 $max = 0;

$max = $h_l > $h_c ? $h_l : $h_c;
$max = $max > $c_l ? $max : $c_l;

# True Range
$tr[$i] = $max;
}

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

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

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

検索フォーム


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