FC2ブログ

# ウィリアムズ A/D William's Accumulation Distribution
# 引数 高値 安値 終値 (\@High, \@Low, \@Close)
# 戻り値 ウィリアムズ A/D (@WAD)
sub WAD{
my ($High, $Low, $Close) = @_;
my @WAD = ();
my $count = @$Close - 2;

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

# 計算
$WAD[$count + 1] = 0;
for(my $i = $count; $i >= 0; $i--){
my $AD = 0;

if($$Close[$i] > $$Close[$i + 1]){
my $TrueRangeLow = ($$Close[$i + 1] > $$Low[$i] ? $$Low[$i] : $$Close[$i + 1]);
$AD = $$Close[$i] - $TrueRangeLow;
}else {
if($$Close[$i] < $$Close[$i + 1]){
my $TrueRangeHigh = ($$Close[$i + 1] < $$High[$i] ? $$High[$i] : $$Close[$i + 1]);
$AD = $$Close[$i] - $TrueRangeHigh;
}
}

# ウィリアムズ A/D William's Accumulation Distribution
$WAD[$i] = $AD + $WAD[$i + 1];
}

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

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

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

検索フォーム


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