Почему я не получаю ноль, когда вычитаю одно и то же число с плавающей запятой из себя в 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\n";
Удивительно, но результат оказался
((4.404445 - 4.404445)/4.404445)*100 ==> -2.01655014354845e-14.
Разве это не должно быть ноль ???? Может кто-нибудь объяснить это, пожалуйста ......