FC2ブログ

# 乖離率・乖離線
# 引数 期間 値 (\@Price, \@CompPrice)
# 戻り値 hash {'rate'} {'line'} (%kairi)
sub KAIRI{
my ($Price, $CompPrice) = @_;
my $max = (@$Price > @$CompPrice ? @$CompPrice: @$Price);
my %kairi = ();
my $count = $max - 1;

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

# 計算
for(my $i = $count; $i >= 0; $i--){
# 乖離率
$kairi{'rate'}->[$i] = (($$Price[$i] - $$CompPrice[$i]) / $$CompPrice[$i]) * 100;
# 乖離線
$kairi{'line'}->[$i] = ($$Price[$i] - $$CompPrice[$i]);
}

return %kairi;
}


参考URL
テクニカル分析│乖離率・乖離線
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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