0

可能的重复：
为什么 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.

它不应该是零吗？？？？谁能解释一下这个请......

4

4 回答 4

19

每个计算机科学家都应该知道的浮点运算知识

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

这不是 Perl 相关的，而是浮点相关的。

于 2010-01-17T10:15:45.280 回答
7

它非常接近于零，这是我所期望的。

为什么它应该为零？0.579787 ！= 0.579788 和 0.433273 ！= 0.433272。很可能这些都没有精确的浮点表示，因此您应该预料到一些不准确之处。

于 2010-01-17T10:13:41.270 回答
4

从perlfaq4对为什么我得到长小数（例如，19.9499999999999）而不是我应该得到的数字（例如，19.95）的回答？：

在内部，您的计算机以二进制表示浮点数。数字（如二的幂）计算机无法准确存储所有数字。一些实数在此过程中会失去精度。这是计算机如何存储数字并影响所有计算机语言的问题，而不仅仅是 Perl。

perlnumber 显示了数字表示和转换的详细信息。

要限制数字中的小数位数，可以使用 printf 或 sprintf 函数。有关详细信息，请参阅“浮点算术”。

printf "%.2f", 10/3;

my $number = sprintf "%.2f", 10/3;
于 2010-01-17T16:02:26.573 回答
3

$l1当您将两个字符串更改为相等时（和之间有 2 个数字不同$l2），它确实会导致零。

它所展示的是，您可以创建 2 个不同的浮点数 ($val1和$val2)，它们在打印出来时看起来相同，但内部有微小的差异。如果您不小心，这些差异可能会被放大。

Vinko Vrsalovic 发布了一些很好的链接来解释原因。

于 2010-01-17T12:19:08.517 回答