在浮点计算中分配给变量的是什么？

Question

由于浮点数，我在 Perl (v5.10.1) 中的计算遇到了一些问题：

#!/usr/bin/perl
use strict;
use warnings;
use POSIX;

my $x1 = 1500;
my $x0 = 1000;
my $dx = 100/3;

print "($x1-$x0)/$dx \n";                                   #(1500-1000)/33.3333333333333
print my $a=(($x1-$x0)/$dx), "\n";                          #15
print my $b=floor(($x1-$x0)/$dx), "\n";                     #14
print my $c=floor($a), "\n";                                #14
print floor(15), "\n";                                      #15
print my $d=floor(sprintf("%.0f", ($x1-$x0)/$dx)), "\n";    #15

为什么有时输出 14？值 15 不是像 $a 中显示的那样保存，因此在值 15 上使用了 floor？ $a 和$c 的对比让我很疑惑……

我阅读了this，但无法弄清楚。我还找到了sprintf 的解决方法，我认为这不是很方便。

Answer 1

在双精度中，$dx 的值正好是

33.33333333333333570180911920033395290374755859375

($x1-$x0)/$dx 的值正好是

14.9999999999999982236431605997495353221893310546875

floor($x1-$x0)/$dx 因此是 14。

您从 print/sprintf 中得到 15，因为打印会四舍五入十进制值（除非您要求更多数字，例如“%.17g”）。

Answer 2

试试：

printf "%.18g\n", my $a=(($x1-$x0)/$dx);

您看到的 15 并不完全是 15；它可能会少一点或多一点。 大多数浮点数只能不精确地表示；在运算中使用时，效果是，错误，成倍增加。

经典参考：http://docs.oracle.com/cd/E19957-01/806-3568/ncg_goldberg.html

使用 sprintf 的解决方法通常不太好用，因为它只处理极少量的不精确性。最好检查您的计算并确定您应该使用的公差并在铺地板之前添加它。