Location : Home > Languages > Perl > Package Title : Math::Business::SMA

名称

　Math::Business::SMA - 単純移動平均の計算

概要

use Math::Business::SMA;

my $sma = new Math::Business::SMA;

set_days $sma 3;

my @closing_values = qw(
	3 4 4 5 6 5 6 5 5 5 5 
	6 6 6 6 7 7 7 8 8 8 8 
);

foreach(@closing_values) {
	$sma->insert( $_ );
	if( defined(my $q = $sma->query) ) {
		print "SMA value: $q.\n";
	} else {
		print "SMA value: n/a.\n";
		# 単純移動平均は計算に必要な十分な日のデータが確保できるまでは未定義。
	}
}

# このように一挙に求めてもよい。
$sma->start_with( [@array_of_days_most_recent_on_right] );

著者

　Jettero Heller, <jettero@cpan.org>
　http://www.voltar.org

参考資料

perl(1), Math::Business::SMA(3)

Updated : 2006/06/27