为什么我在 Perl 中从自身减去相同的浮点数时不会得到零? [英] Why don't I get zero when I subtract the same floating point number from itself in Perl?

问题描述

可能的重复:
为什么 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
";

出人意料的结果是

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

它不应该是零吗????谁能解释一下这个……

Is it not supposed to be a ZERO???? Can any one explain this please......

推荐答案

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

参见 为什么 C# 中的浮点运算不精确?

这与 Perl 无关，但与浮点相关.

This isn't Perl related, but floating point related.

这篇关于为什么我在 Perl 中从自身减去相同的浮点数时不会得到零?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！