脚本从 mysql 中提取数据:
$DBI::result = $db->prepare(qq{
SELECT close
FROM $table
WHERE day <= '$DATE'
ORDER BY day DESC
LIMIT $EMA
});
$DBI::result->execute();
while($row = $DBI::result->fetchrow) {
print "$row\n";
};
具有以下示例结果:
1.560 1.560 1.550...
但我需要使用Math::Business::EMA 计算出 EMA;而且我不确定如何在保持准确性的同时进行计算。EMA 是加权的,我缺乏 Perl 知识也无济于事。