当我在Perl中从自身中减去相同的浮点数时,为什么不能得到零？

Question

可能重复:
为什么C#中的浮点运算不精确？
为什么ghci说1.1 + 1.1 + 1.1> 3.3是真的？

#!/usr/bin/perl
$l1 = "0+0.590580+0.583742+0.579787+0.564928+0.504538+0.459805+0.433273+0.384211+0.3035810";
$l2 = "0+0.590580+0.583742+0.579788+0.564928+0.504538+0.459805+0.433272+0.384211+0.3035810";
$val1 = eval ($l1);
$val2 = eval ($l2);
$diff = (($val1 - $val2)/$val1)*100;
print " (($val1 - $val2)/$val1)*100 ==> $diff\n";

令人惊讶的是,输出最终结果是

((4.404445 - 4.404445)/4.404445)*100 ==> -2.01655014354845e-14.

它不应该是一个零吗???? 请任何人解释一下......

Answer 1

每个计算机科学家应该了解浮点运算

请参阅为什么C#中的浮点运算不精确？

这与Perl无关,但与浮点有关.

Answer 2

它非常接近零,这是我所期待的.

为什么它应该是零？0.579787!= 0.579788和0.433273!= 0.433272.很可能这些都没有精确的浮点表示,所以你应该期待一些不准确的事情.