FC2ブログ

# バランス・オブ・パワー Balance of Power
# 引数 期間 始値 高値 安値 終値 ($Period, \@Open, \@High, \@Low, \@Close)
# 戻り値 BalanceofPower (@bop)
sub BOP{
my ($Period, $Open, $High, $Low, $Close) = @_;
my @bop = ();
my $count = @$Close - 1;

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

# 計算
for(my $i = $count; $i >= 0; $i--){
my $num = ($$Close[$i] - $$Open[$i]);
my $den = ($$High[$i] - $$Low[$i]);

$bop[$i] = ($den != 0 ? ($num / $den) : 0);
}

# バランス・オブ・パワー Balance of Power
@bop = &EMA($Period, \@bop);

return @bop;
}


参考URL
バランス・オブ・パワー (Balance of Power) 考案者:イゴール・リヴシン (Igor Livshin)
perlでテクニカル分析 2 指数平滑移動平均 (Exponential Moving Average: EMA)
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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