FC2ブログ

# High Low Band
# 引数 期間 高値 安値 ($Period, $High, $Low)
# 戻り値 hash {'highest'} {'lowest'} (%hlband)
sub HLBAND{
my ($Period, $High, $Low) = @_;
my %hlband = ();
my $count = @$High - ($Period + 1);

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

# 計算
for(my $i = $count; $i >= 0; $i--){
my $tmp_h = $$High[$i + 1];
my $tmp_l = $$Low[$i + 1];

for(my $j = 2; $j <=$Period; $j++){
if($tmp_h < $$High[$i + $j]){
$tmp_h = $$High[$i + $j];
}
if($tmp_l > $$Low[$i + $j]){
$tmp_l = $$Low[$i + $j];
}
}

# High Low Band
$hlband{'highest'}->[$i] = $tmp_h;
$hlband{'lowest'}->[$i] = $tmp_l;
}

return %hlband;
}


一言
扱い方の違いにはまった
$hlband{'highest'}->[$i] 配列
$hlband{'highest'}->{$i]} ハッシュ

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

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

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

検索フォーム


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