如何解决在Perl的statistics::describative中导致无限循环的舍入错误?

我正在使用 Statistics::Descriptive Perl中的库,用于计算频率分布,并针对浮点舍入错误问题进行处理。

我把两个值,0.205和0.205(取自其他数字和sprintf'd)传递给stats模块,让它计算频率分布,但它陷入了一个无限循环中。

通过一个调试器,我可以看到它正在做:

my $interval = $self->{sample_range}/$partitions;

my $iter = $self->{min};

while (($iter += $interval) <  $self->{max}) {

  $bins{$iter} = 0;

  push @k, $iter;  ##Keep the "keys" unstringified

}

$self->sample_range(范围是max min)返回的是2.77555756156289E-17,而不是如我所料的0。这意味着循环((min+=range)<max))进入一个(所有意图和目的)无限循环。

DB<8>打印$self->max
零点二零五
DB<9>打印$self->分钟
零点二零五
db<10>打印$self->max-$self->min
2.77555756156289E-17

所以这看起来像一个舍入问题。不过,我想不出怎么解决这个问题,我也不确定编辑图书馆是个好主意。我正在寻找解决方案或替代方案的建议。

干杯, 尼尔