FC2ブログ

# ドロー・シンプル・ライン Draw Simple Line
# 引数 期間 値 ($Period, \@Price)
# 戻り値 @dsl[] ([0]インジケーター1 [1]インジケーター2) (@dsl)
sub DSL{
my ($Price) = @_;
my @dsl = ();
my $count = @$Price - 13;

# 配列数の確認
if($count < 0){
return 0;
}

# 計算
for(my $i = $count; $i >= 0; $i--){
my $Ind1AvgS = 0;
my $Ind1AvgM = 0;
my $Ind2AvgS = 0;
my $Ind2AvgM = 0;
for(my $j = 0; $j < 13; $j++){
$Ind2AvgM += $$Price[$i + $j];
if($j < 10){
$Ind1AvgM += $$Price[$i + $j];
if($j < 7){
$Ind2AvgS += $$Price[$i + $j];
if($j < 5){
$Ind1AvgS += $$Price[$i + $j];
}
}
}
}
$Ind1AvgS = $Ind1AvgS / 5;
$Ind1AvgM = $Ind1AvgM / 10;
$Ind2AvgS = $Ind2AvgS / 7;
$Ind2AvgM = $Ind2AvgM / 13;

# Draw Simple Line
$dsl[$i][0] = $Ind1AvgS - $Ind1AvgM;
$dsl[$i][1] = $Ind2AvgS - $Ind2AvgM;
}

return @dsl;
}


参考URL
テクニカル分析│Draw Simple Line (ドロー・シンプル・ライン)
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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