FC2ブログ

# ローソク足 2本線の組み合わせ 出会い線 振り分け線 Candle Stick
# 引数 始値 高値 安値 終値 (\@Open, \@High, \@Low, \@Close)
# 戻り値 出会い線と振り分け線のフラグ (@CandleStick)
sub CANDLESTICK{
my ($Open, $High, $Low, $Close) = @_;
my @CandleStick = ();
my $Flag = 0;
my $Count = @$Close - 2;

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

# 計算
for(my $i = $Count; $i >= 0; $i--){
$Flag = 0;

if($$Open[$i + 1] < $$Close[$i + 1]){
# 陽線

# [1] 出会い線
# 前日 陽線
# 当日 陰線
# 引値が同じ
$Flag = 1 if(($$Open[$i] > $$Close[$i]) && ($$Close[$i] == $$Close[$i + 1]));

# [2] 振り分け線
# 前日 陽線
# 当日 陰線
# 寄付値が同じ
$Flag = 2 if(($$Open[$i] > $$Close[$i]) && ($$Open[$i] == $$Open[$i + 1]));
}else {
if($$Open[$i + 1] > $$Close[$i + 1]){
# 陰線

# [-1] 出会い線
# 前日 陰線
# 当日 陽線
# 引値が同じ
$Flag = -1 if(($$Open[$i] < $$Close[$i]) && ($$Close[$i] == $$Close[$i + 1]));

# [-2] 振り分け線
# 前日 陰線
# 当日 陽線
# 寄付値が同じ
$Flag = -2 if(($$Open[$i] < $$Close[$i]) && ($$Open[$i] == $$Open[$i + 1]));
}
}

# ローソク足 2本線の組み合わせ 出会い線 振り分け線 Candle Stick
$CandleStick[$i] = $Flag;
}

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

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

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

検索フォーム


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