Dlaczego uzyskuję inny wynik, gdy wykonuję obliczenia matematyczne na cytowanej lub niecedowanej zmiennej?

Question

Pracuję na szerokościach i długościach geograficznych w celu określenia lokalizacji biznesowych i popadłem w dziwne zachowania.

W poniższym fragmencie kodu Perl przypisywanie danych do $v1 następuje do 1. Po wywołaniu acos($v1) pojawia się błąd sqrt. Kiedy dzwonię pod numer acos("$v1") (z cudzysłowami), nie robię tego. Wywołanie acos(1) również nie powoduje wystąpienia błędu. Dlaczego cytaty mają znaczenie?

use strict; 
use warnings 'all'; 

sub acos { 
    my $rad = shift; 
    return (atan2(sqrt(1 - $rad**2), $rad)); 
} 

my $v1 = (0.520371764072297 * 0.520371764072297) + 
     (0.853939826425894 * 0.853939826425894 * 1); 

print acos($v1); # Can't take sqrt of -8.88178e-16 at foo line 8. 
print acos("$v1"); # 0 

Answer 1

$v1 nie jest dokładnie 1:

$ perl -e' 
    $v1 = (0.520371764072297 * 0.520371764072297) + 
      (0.853939826425894 * 0.853939826425894 * 1); 
    printf "%.16f\n", $v1 
' 
1.0000000000000004 

Jednak kiedy go stringify, Perl only keeps 15 digits of precision:

$ perl -MDevel::Peek -e' 
    $v1 = (0.520371764072297 * 0.520371764072297) + 
      (0.853939826425894 * 0.853939826425894 * 1); 
    Dump "$v1" 
' 
SV = PV(0x2345090) at 0x235a738 
    REFCNT = 1 
    FLAGS = (PADTMP,POK,pPOK) 
    PV = 0x2353980 "1"\0  # string value is exactly 1 
    CUR = 1 
    LEN = 16