Perl: Wie vergleichen Fließkomma-zahlen

Schrieb ich das folgende Perl-Skript. Es wird jedoch nicht gedruckt "1". Ich habe einige der Forschung, und es scheint, dass es ist, weil der IEEE Darstellung Fließkomma-Zahl. Also, gibt es eine bessere Möglichkeit zum Vergleich von floating-point-zahlen in Perl?

for (my $tmp = 0.1; $tmp <= 1; $tmp+=0.05){print $tmp."\n"}

Ausgabe: 

0.1
0.15
0.2
0.25
0.3
0.35
0.4
0.45
0.5
0.55
0.6
0.65
0.7
0.75
0.8
0.85
0.9
0.95
  • $tmp <= 1+$tolerance
  • zeigen mehr Präzision zu sehen, was passiert (ändern Sie die limit zu 1) perl -e 'for (my $tmp = 0.1; $tmp <= 1.01; $tmp+=0.05){printf "%.20f\n", $tmp}'
InformationsquelleAutor Bin Zhou | 2014-02-05
  1. 9

    Alle Berechnungen, die Verwendung von Gleitkommazahlen haben können, Präzision Fehler, und wenn Sie die Wiederverwendung der Ergebnisse, diese Präzision Fehler-stack-up. Eine Sache, zu lernen, dass ist nie ein schweben als ein loop control variable.

    Etwas wie

    for (my $tmp=2; $tmp<=20; tmp++) {
    print $tmp/20.0, "\n";
}

    wo immer Sie können. Wenn Sie wirklich, wirklich brauchen, zum vergleichen von zwei floats ($a, $b) etwas wie

    if (abs($a - $b) < 0.000001)

    ist das einzige, das wirklich funktioniert-aber diese haben möglicherweise Probleme, als auch, je nachdem, wie klein der Unterschied sein kann, um zu zählen, als einen echten Unterschied.

    InformationsquelleAutor Guntram Blohm
  2. 5

    Multiplizieren Sie alles, so dass Sie arbeiten nur mit ganzen zahlen - in diesem Fall 100.

    Dann beim drucken der Zahl, teilen Sie durch die gleiche Anzahl;

    for (my $tmp = 10; $tmp <= 100; $tmp+=5){print $tmp/100 ."\n"}

    Gibt mir:

    0.1
0.15
0.2
0.25
0.3
0.35
0.4
0.45
0.5
0.55
0.6
0.65
0.7
0.75
0.8
0.85
0.9
0.95
1
    InformationsquelleAutor Andrejovich
  3. 1

    Dies ist eine klassische situation, in der Programmierung, und ist gut erklärt hier

    Dem Update ist die Verwendung von integer-Arithmetik statt, und schreiben Sie es wie folgt

    for (my $tmp = 10; $tmp <= 100; $tmp += 5) {
  print $tmp/100, "\n"
}

    Ausgabe

    0.1
0.15
0.2
0.25
0.3
0.35
0.4
0.45
0.5
0.55
0.6
0.65
0.7
0.75
0.8
0.85
0.9
0.95
1
    InformationsquelleAutor Borodin
  4. 0
    sign=$(perl -E "printf '%.4f', 434.5678 - 2734.4395"); if [ "${sign:0:1}" = "-" ]; then echo -e "434.5678 < 2734.4395\n"; fi

    Ergebnis:

    434.5678 < 2734.4395
    InformationsquelleAutor Rafał Białas
Schreibe einen Kommentar