FC2ブログ

# ボリューム・オシレーター Volume Oscillator
# 引数 期間 期間 出来高 ($PeriodShort, $PeriodLong, \@Volume)
# 戻り値 ボリューム・オシレーター (@VolumeOscillator)
sub VOLUMEOSCILLATOR{
my ($PeriodShort, $PeriodLong, $Volume) = @_;
($PeriodShort, $PeriodLong) = ($PeriodLong, $PeriodShort) if($PeriodShort > $PeriodLong);
my @VolumeOscillator = ();
my $count = @$Volume - $PeriodLong;

# 期間と配列数の確認
if(($PeriodShort <= 0) || ($PeriodLong <= 0) || ($count < 0)){
return 0;
}

# 計算
my @EmaShort = &EMA($PeriodShort, $Volume);
my @EmaLong = &EMA($PeriodLong, $Volume);
for(my $i = $count; $i >= 0; $i--){
# ボリューム・オシレーター Volume Oscillator
$VolumeOscillator[$i] = (($EmaShort[$i] - $EmaLong[$i]) / $EmaShort[$i]) * 100;
}

return @VolumeOscillator;
}


perlでテクニカル分析 2 指数平滑移動平均 (Exponential Moving Average: EMA)
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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