FC2ブログ

# 累積移動平均
# 引数 期間 値 ($Price)
# 戻り値 累積移動平均値 (@ca)
sub CA{
my ($Price) = @_;
my @ca = ();
my $count = @$Price - 1;

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

# 計算
$ca[$count] = $$Price[$count];
for(my $i = $count - 1; $i >= 0; $i--){
my $avg = $ca[$i + 1] * ($count - $i);
$avg = ($$Price[$i] + $avg) / (($count + 1) - $i);

# 累積移動平均
$ca[$i] = $avg;
}

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

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

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

検索フォーム


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