FC2ブログ

# マネーフローインデックス Money Flow Index
# 引数 期間 高値 安値 終値 出来高 ($Period, \@High, \@Low, \@Close, \@Volume)
# 戻り値 マネーフローインデックス (@MoneyFlowIndex)
sub MONEYFLOWINDEX{
my ($Period, $High, $Low, $Close, $Volume) = @_;
my @MoneyFlowIndex = ();
my @TypicalPrice = ();
my $MoneyFlow = 0;
my $count = @$Close - ($Period + 1);

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

# 計算
@TypicalPrice = &TP($Close, $High, $Low);
for(my $i = $count; $i >= 0; $i--){
my $PositiveMoneyFlow = 0;
my $NegativeMoneyFlow = 0;

for(my $j = 0; $j < $Period; $j++){
$MoneyFlow = $TypicalPrice[$i + $j] * $$Volume[$i + $j];

if($TypicalPrice[$i + $j] > $TypicalPrice[$i + ($j + 1)]){
# 上昇
$PositiveMoneyFlow += $MoneyFlow;
}else {
# 下落 変わらず
$NegativeMoneyFlow += $MoneyFlow;
}
}

# マネーフローインデックス Money Flow Index
$MoneyFlowIndex[$i] = 100 - (100 / (1 + ($PositiveMoneyFlow / $NegativeMoneyFlow)));
}

return @MoneyFlowIndex;
}


参考URL
perlでテクニカル分析 48 Typical Price TP
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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