Rechenfehler mit Perl ausgleichen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-05 22:10:43
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]18298[/thread]

submit to reddit

Rechenfehler mit Perl ausgleichen [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 30

Articles: hide open all | hide show old branches

Teilbaum:
Fliesskommazahl runden (37 Artikel) 2013-05-03 13:02

+72 replies
bianca

2013-04-27 13:42
User since
2009-09-13
7016 Artikel
BenutzerIn
Hi!
Habe hier gerade eine blöde Konstellation gehabt, bei der 100000 minus 100000 nicht 0 ergab.
Habe im Code extra keine Fliesskommazahlen am Start.
Musste ein wenig fummeln, bis ich das überhaupt nachstellen konnte.

Mit folgendem Code kann ich das Problem reproduzieren:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl -w use strict; use warnings; my $a = integer(100000 + -1.45519152283669e-011 ); my $b = 100000; my $test = $a - $b; print "$a minus $b = $test\n"; sub integer { my $wert = shift (@_) || 0; return 'FEHLER' if $wert =~ /e\+?\d+$/; return 0 if $wert =~ /e-\d+$/; $wert = $1 if $wert =~ /^(.*?)\./; $wert = 0 if !$wert or $wert == -0; return $wert; }
Quote
100000 minus 100000 = -1.45519152283669e-011

1. Kommt bei euch auch nicht 0 raus mit diesem Code?
2. Was kann ich tun, damit das Ergebnis 0 ergibt?
Danke
10 print "Hallo"
20 goto 10
- +68 replies
- Raubtier
  
  2013-04-27 13:55
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  Was ist denn das wieder für ein Code? Das Ergebnis ist völlig richtig, nämlich ungleich 0. Es gibt in Perl zu einem Skalar sowohl eine String- als auch eine Zahl-Repräsentation.
  
  Wir haben hier:
  100000 + -1.45519152283669e-011 (2 VZ ohne Klammer sieht irgendwie eklig aus)
  
  Die Standard-Stringrepräsentation hat nur eine bestimmte Anzahl Stellen und ist 100000. Deine Zahl ist aber kleiner.
  
  Code: (dl )
  
  1 2 3 4
  
  $ perl -wE'say 100000 + -1.45519152283669e-011' 100000 $ perl -wE'say sprintf("%.12f",100000 + -1.45519152283669e-011)' 99999.999999999985
  
  Deine Integer-Funktion ist falsch, die tut in diesem Fall gar nichts. Denn in der String-Repräsentation ist ja einfach kein . drin. Daher wird der Wert so returned wie er reinkommt.
  
  Was spricht gegen die Perl-eigenen Funktionen zum (Ab-, Auf-)Runden?
  
  Abgesehen davon, dass dein Code falsch ist, ist er auch noch ineffizient. Warum eine Zahl in einen String wandeln und dann ggf. wieder zurück, wenn man auch direkt mit der Zahl rechnen kann?
  Last edited: 2013-04-27 14:05:47 +0200 (CEST)
  - +67 replies
  - bianca
    
    2013-04-27 14:24
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-04-27T11:55:08 Raubtier
    Was spricht gegen die Perl-eigenen Funktionen zum (Ab-, Auf-)Runden?
    
    Es spricht dagegen, dass sie noch schlechter funktionieren, das hatten wir hier diskutiert: Richtig INTen und hier Perl Bug bei int?
    
    2013-04-27T11:55:08 Raubtier
    Abgesehen davon, dass dein Code falsch ist, ist er auch noch ineffizient. Warum eine Zahl in einen String wandeln und dann ggf. wieder zurück, wenn man auch direkt mit der Zahl rechnen kann.
    
    Das musste ich machen, um das Problem zu reproduzieren. Ich kann ja hier schlecht 3 MB Perlcode posten und erwarten, dass sich jemand das ganze Projekt installiert. Hatte ich aber erwähnt.
    
    Aber richtig schlauer bin ich jetzt nicht :(
    10 print "Hallo"
    20 goto 10
    - +66 replies
    - Raubtier
      
      2013-04-27 14:53
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      2013-04-27T12:24:54 bianca
      2013-04-27T11:55:08 Raubtier
      Was spricht gegen die Perl-eigenen Funktionen zum (Ab-, Auf-)Runden?
      
      Es spricht dagegen, dass sie noch schlechter funktionieren, das hatten wir hier diskutiert: Richtig INTen und hier Perl Bug bei int?
      
      Die Perl-eigenen Funktionen tun genau das, was dokumentiert ist. Sie funktionieren daher also nicht "schlechter".
      
      Ich glaube, es ist viel wichtiger, dass du genau beschreibst, wie eigentlich gerundet werden soll, wenn du Fließkommazahlen verwendest. Denn exakt sind die Ergebnisse ja nie. Möchtest du auf eine bestimmte Anzahl an Stellen nach dem Komma runden?
      - +24 replies
      - tonewheel
        
        2013-04-27 17:33
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Ohnehin kennt Perl intern kein Integer. Es liegt alles im float Format vor. Ausserdem wird bei Bedarf gecastet. Addiert man also 1000 + 1000.0001, so wird daraus 1000.0 + 1000.0001
        
        Tipp: 'Learning Perl' gut durchlesen. Das ist durchaus mehr als nur ein Anfängerbuch, denn gerade diese Sachverhalte sind da wunderbar erklärt.
        
        +12 replies
        
        bianca
        
        2013-04-27 18:50
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-27T15:33:15 tonewheel
        Ohnehin kennt Perl intern kein Integer. Es liegt alles im float Format vor. Ausserdem wird bei Bedarf gecastet. Addiert man also 1000 + 1000.0001, so wird daraus 1000.0 + 1000.0001
        
        Und wie wir man dem Herr?
        
        2013-04-27T15:33:15 tonewheel
        Tipp: 'Learning Perl' gut durchlesen. Das ist durchaus mehr als nur ein Anfängerbuch, denn gerade diese Sachverhalte sind da wunderbar erklärt.
        
        Steht da auch drin, wie man dem Computer das Rechnen beibringt? :)
        Also findet man darin eine Lösung, wie man beliebige ganzzahlige Werte in beliebiger Menge addiert und am Ende noch 100000 == 100000 ist?
        10 print "Hallo"
        20 goto 10
        
        +11 replies
        
        tonewheel
        
        2013-04-27 19:53
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        2013-04-27T16:50:49 bianca
        Und wie wir man dem Herr?
        
        ?
        
        2013-04-27T16:50:49 bianca
        Steht da auch drin, wie man dem Computer das Rechnen beibringt? :)
        
        Nein, das kann der schon von sich aus, da sich Firmen wie Intel, AMD, usw. darüber bereits Gedanken machten. :-)
        
        2013-04-27T16:50:49 bianca
        Also findet man darin eine Lösung, wie man beliebige ganzzahlige Werte in beliebiger Menge addiert und am Ende noch 100000 == 100000 ist?
        
        Es ist ein Lehrbuch, kein Lösunsgsbuch. Wollte damit nur sagen, dass sich wirklich so manch interessante 'Kleinigkeit' findet. Jedoch, einen Hinweis auf Dein Problem gibt es, nämlich dass Du z.B. Zeile 8 so schreiben solltest:
        
        Code (perl): (dl )
        
        my $test = sprintf("%d", $a - $b);
        
        Dann kommt zumindest das heraus, was Du (in dem Fall) erwartest. Das ist natürlich nichts Neues, führt jedoch zu der Frage (die auch schon gestellt wurde), was Deine Anwendung bezweckt. Denn interne Werte, und das was man anschließend ausgibt, ist ja ein Unterschied. Wenn Du mit dem Wert weiterrechnen willst, macht es keinen Unterschied. Wenn Du ihn ausgeben willst, fragt sich doch, auf wie viele Stellen hinterm Komma das geschehen soll. Wenn z.B. nur um Euro-Werte geht, reicht doch sowas wie oben:
        
        Code (perl): (dl )
        
        my $money = sprintf("%.2f", 2.49997);
        
        Also hängt das alles doch weniger von Perl, als vielmehr von Deiner Anwendung ab.
        
        +10 replies
        
        bianca
        
        2013-04-27 20:05
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Das treibt mich in die Verzweiflung :(
        Wie soll ich es noch anders formulieren?
        Ich habe eine Anwendung die zwei verschiedene Summen bilden und diese Summen am Ende miteinander vergleichen muss. Wenn eine Differenz besteht muss eine Ausgabe dieser erfolgen.
        Und diese Anwendung hat nun heute erstmalig eine Konstellation hervorgebracht wo die Werte eben intern nicht gleich waren. Also stand in der Ausgabe "Achtung Differenz: 0".
        Und genau solch eine Konstellation habe ich gehofft vermeiden zu können, indem ich nicht mehr mit Kommawerten sondern nur noch mit Ganzzahlen rechne. Wie ich nun aber entsetzt feststelle nützt das nichts.
        
        Daher nochmal die Frage: Was muss ich denn tun, damit meine Anwendung auch intern mit den Ganzzahlen mathematisch korrekt addiert?
        Muss ich dafür die sub integer{} ändern die wir mühselig im anderen Thread erarbeite haben oder liegt die Lösung gar nicht darin, die Einzelwerte alle auf Ganzzahlen hoch zu multiplizieren?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        Muffi
        
        2013-04-27 20:09
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Quote
        Daher nochmal die Frage: Was muss ich denn tun, damit meine Anwendung auch intern mit den Ganzzahlen mathematisch korrekt addiert?
        
        Die integerfunktion weglassen
        1 + 1 = 10
        
        +2 replies
        
        bianca
        
        2013-04-27 20:16
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-27T18:09:07 Muffi
        Die integerfunktion weglassen
        
        Nein, das kann nicht sein, dann bin ich wieder am Anfang, nämlich hier:
        
        msg #129642
        
        Oder wie schaffst du es, ohne int bei 0.57 * 100 auf 57 zu kommen?
        10 print "Hallo"
        20 goto 10
        
        tonewheel
        
        2013-04-27 20:28
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        #!/usr/bin/perl -w use strict; use warnings; my $a = 0.57; my $b = 100; my $c = sprintf("%0.0f", $a * $b); print $c . "\n";
        
        +6 replies
        
        tonewheel
        
        2013-04-27 20:21
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Ich nehme nun an, dass diese 'Summen', die Du erwähnst, Integerzahlen sein sollen?!
        
        Antwort für Integer: Hast Du mal die modifizierte Zeile 8 ausprobiert? Liefert die nicht genau das, was Du willst? Sie ist ausreichend, um den 'Rundungsfehler' von Perl zu verhindern.
        
        Antwort für Float: Da Float Werte nie 'gleich' sind (das liegt nicht an Perl, oder am Computer, sondern einfach nur daran, dass man mit endlich vielen Binärstellen keine reelle Zahl darstellen kann), legt man fest, wann etwas 'als gleich gelten soll'. Dann tut man, ähnlich der Mathematik; man legt ein epsilon fest, das die Abweichung anzeigt, die noch als gleich gilt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        my $epsilon = 0.00000001; my $a = ....; # irgendein errechneter float wert my $b = ....; # noch irgendein errechneter float wert if (abs($a - $b) < $epsilon) # In dem Fall 'sieht man es als 0 an' else my $differenz = $a - $b;
        
        Deine Integer sub schafft ggf. nur noch mehr Durcheinander. Denn ich bin mir nicht mal sicher, ob beim cast von float zu string und dann wieder zu float die Zahl intern wirklich so abgespeichert ist, wie vorher. Kann das aber nicht beweisen.
        
        +5 replies
        
        bianca
        
        2013-04-27 20:33
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-27T18:21:55 tonewheel
        Ich nehme nun an, dass diese 'Summen', die Du erwähnst, Integerzahlen sein sollen?!
        
        Ja.
        
        2013-04-27T18:21:55 tonewheel
        Antwort für Integer: Hast Du mal die modifizierte Zeile 8 ausprobiert? Liefert die nicht genau das, was Du willst? Sie ist ausreichend, um den 'Rundungsfehler' von Perl zu verhindern.
        
        Aus den anderen drei erwähnten Threads ist bei mir hängen geblieben, dass man beim Rechnen Abstand von sprintf nehmen sollte.
        
        Edit: hier wurde das gesagt und begründet: msg #166121
        
        2013-04-27T18:21:55 tonewheel
        Antwort für Float: Da Float Werte nie 'gleich' sind (das liegt nicht an Perl, oder am Computer, sondern einfach nur daran, dass man mit endlich vielen Binärstellen keine reelle Zahl darstellen kann), legt man fest, wann etwas 'als gleich gelten soll'. Dann tut man, ähnlich der Mathematik; man legt ein epsilon fest, das die Abweichung anzeigt, die noch als gleich gilt:
        
        Ja, kann ich nachvollziehen. Würde auch das aktuelle Problem lösen.
        Aber eine wichtige Frage bleibt bei mir offen: Wieso enthält eine Variable offensichtlich intern einen anderen Wert als der, den man mit print anzeigen lassen kann? Das gibt mir das Gefühl, keine Kontrolle über die Werte zu haben und damit nie sicher zu sein, dass meine Summe am Ende stimmt.
        Das birgt ja das mit der Anzahl der Einzelwerte zunehmende Risiko, dass sich hier nicht sichtbar zu machende Differenzen ergeben, die sich aufschaukeln.
        Gibt es denn keine Möglichkeit sicherzustellen, dass eine Variable das enthält, was man auch "sehen" kann?
        Last edited: 2013-04-27 20:43:27 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        tonewheel
        
        2013-04-28 00:11
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        2013-04-27T18:33:46 bianca
        Aus den anderen drei erwähnten Threads ist bei mir hängen geblieben, dass man beim Rechnen Abstand von sprintf nehmen sollte.
        
        Die Antwort gibst Du Dir selbst: '...beim Rechnen'. Klar, dass man dann den Fehler über die ganze Rechnung transportiert.
        
        2013-04-27T18:33:46 bianca
        Ja, kann ich nachvollziehen. Würde auch das aktuelle Problem lösen.
        
        Daher schrieb ich ja, dass es auch von der Anwendung abhängt. Wenn Du aufgrund dessen 'Differenz ist Null' als gegeben sehen kannst, ist das Ziel auch ohne Integers erreicht.
        
        Wenn man aber am Ende wirklich einen Wert und nicht nur eine Aussage anzeigen will, muss man sich überlegen, wie genau der dargestellt werden soll. Mit printf bzw. sprintf kompensiert man ledglich das, was Perl 'übergenau' nimmt, wo man es gar nicht so genau haben will. Jedoch, nicht um dann weiter zu rechnen.
        
        2013-04-27T18:33:46 bianca
        Aber eine wichtige Frage bleibt bei mir offen: Wieso enthält eine Variable offensichtlich intern einen anderen Wert als der, den man mit print anzeigen lassen kann? Das gibt mir das Gefühl, keine Kontrolle über die
        
        Aus gesagten Gründen. Intern liegen nur float (double) ab. Die sind nur bis auf die x-te Stelle genau. Mit printf bzw. sprintf (nicht print) legt man bei der 'Ausgabe' fest, wie genau die Zahl 'dargestellt' werden soll. Und was anderes könnte man mit einer Zahl machen, als die entweder auszugeben, oder mir ihr weiter zu rechnen.
        
        2013-04-27T18:33:46 bianca
        Werte zu haben und damit nie sicher zu sein, dass meine Summe am Ende stimmt.
        
        Wenn man sich die Sachverhalte zu Herzen nimmt, dann schon.
        
        2013-04-27T18:33:46 bianca
        Das birgt ja das mit der Anzahl der Einzelwerte zunehmende Risiko, dass sich hier nicht sichtbar zu machende Differenzen ergeben, die sich aufschaukeln.
        
        Das wäre nur genau dann der Fall, wenn man mit durch sprintf geformten Werten weiter rechnen würde.
        
        2013-04-27T18:33:46 bianca
        Gibt es denn keine Möglichkeit sicherzustellen, dass eine Variable das enthält, was man auch "sehen" kann?
        
        In dem Fall wohl nicht. Dann müsstest Du schon zu den 'Nachbarn' wechseln, die da z.B. heissen: C, C++, Java. Nur da gibt es 'echte' Integers.
        
        +3 replies
        
        bianca
        
        2013-04-28 07:17
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ich fasse zusammen, was ich meine verstanden zu haben:
        
        1. die Einzelwerte vor der Addition mit 100 multiplizieren ist OK, damit man keine Fließkommazahlen hat; aber nicht den integer bilden
        2. am Ende beim Wertevergleich mit Epsilon arbeiten und sich nicht auf == verlassen
        
        Habe ich das richtig verstanden?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        tonewheel
        
        2013-04-28 08:54
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Würde ich theoretisch (aufgrund der Sachverhalte) in dem Fall so sehen. Jedoch, warum die Einzelwerte mit 100 multiplizieren? Würde auch reichen, das Endergebnis mit 100 zu multiplizieren, wenn Du das Komma unbedingt verschieben willst. Denn jede Multiplikation eines Einzelwertes nimmt diesem ja auch wieder was an Genauigkeit.
        
        bianca
        
        2013-04-28 09:43
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-28T06:54:21 tonewheel
        Jedoch, warum die Einzelwerte mit 100 multiplizieren?
        
        Bei mir war hängen geblieben, dass man lieber nicht mit Fließkommazahlen rechnet. Aber inzwischen scheint es richtiger zu sein, es doch zu tun.
        10 print "Hallo"
        20 goto 10
        
        +10 replies
        
        betterworld
        
        2013-04-28 09:31
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        2013-04-27T15:33:15 tonewheel
        Ohnehin kennt Perl intern kein Integer. Es liegt alles im float Format vor.
        
        Verbreite nicht solche Unwahrheiten. Perl rechnet sehr wohl mit ints. Das kann jeder bestätigen, der mal XS geschrieben hat oder sonstwie sich mit Perl auf C-Ebene beschäftigt hat.
        
        @topic: gut getrollt... dass dir nicht langweilig wird
        Last edited: 2013-04-28 09:35:11 +0200 (CEST)
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        bianca
        
        2013-04-28 09:43
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-28T07:31:57 ?
        @topic: gut getrollt... dass dir nicht langweilig wird
        
        Das verstehe ich nicht. Was meinst du damit?
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        tonewheel
        
        2013-04-28 10:04
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Ein Grund, warum ich hier fast nur lese, und nur selten was schreibe, ist der, dass ich nur dann schreibe, wenn ich mir sicher sein kann, keinen Müll zu verbreiten. Ich habe hier:
        
        'Learning Perl', 5th Edition (neben einigen anderen)
        Chapter 2, Scalar Data: 'All Numbers Have the Same Format Internally'
        '....... But internally, Perl computes with double-precision floating-point values. This means, there are no integer values internal to Perl ....'
        
        Beschwere Dich als bei brian d foy für diese 'Unwahrheit'.
        
        +4 replies
        
        Muffi
        
        2013-04-28 11:29
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Da muss ich dich auch in Schutz nehmen.
        Wenn man wirklich rausfinden will wann Perl intern die Zahl wie speichert kann man sich eigentlich fast die Kugel geben. Entweder steht dazu nix, was falsches oder ungenaues.
        Wahrscheinlich soll einem das sagen, dass man mit Perl besser nix mathematisches macht.
        1 + 1 = 10
        
        +3 replies
        
        bianca
        
        2013-04-28 13:15
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-28T09:29:09 Muffi
        Wahrscheinlich soll einem das sagen, dass man mit Perl besser nix mathematisches macht.
        
        Das habe ich befürchtet. Dann drücke ich mal weiter die Daumen, dass die Ergebnisse einigermaßen stimmen :)
        10 print "Hallo"
        20 goto 10
        
        tonewheel
        
        2013-04-28 15:06
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Das halte ich dann doch für leicht übertrieben. :-)
        
        Muffi
        
        2013-04-28 21:19
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Deine paar Grundrechenarten mit 2 Nachkommastellen haben nicht wirklich viel mit Mathematik zu tun. Kannst also beruhigt ausrechnen :-)
        1 + 1 = 10
        
        +2 replies
        
        Raubtier
        
        2013-04-28 16:26
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        2013-04-28T08:04:17 tonewheel
        'Learning Perl', 5th Edition (neben einigen anderen)
        '....... But internally, Perl computes with double-precision floating-point values. This means, there are no integer values internal to Perl
        
        Das kann auch schon deswegen nicht richtig sein, weil es ja mit integer ein pragma gibt, mit dem man mit Integern rechnet.
        
        Quote
        Internally, native integer arithmetic (as provided by your C compiler) is used. This means that Perl's own semantics for arithmetic operations may not be preserved. One common source of trouble is the modulus of negative numbers, which Perl does one way, but your hardware may do another.
        
        tonewheel
        
        2013-04-29 01:13
        
        User since
        2006-10-01
        182 Artikel
        BenutzerIn
        
        Quote
        ... This means that Perl's own semantics for arithmetic operations may not be preserved...
        
        Dieser Satz und die Existenz dieses pragma's spricht aber doch gerade dafür, dass die Aussage in dem Buch stimmen muss.
        
        pq
        
        2013-04-28 13:05
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2013-04-28T07:31:57 betterworld
        @topic: gut getrollt... dass dir nicht langweilig wird
        
        könntest du das bitte etwas ausführen? verstanden habe ich es nämlich auch nicht.
        und als antwort an tonewheel ist es irgendwie auch an der falschen stelle, wenn es sich auf den thread-titel bezieht.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        murphy
        
        2013-04-28 15:10
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Selbst wenn Perl intern alle numerischen Werte als Gleitkommazahlen speichern sollte¹, so kann man doch auch in einer Gleitkommavariablen alle Ganzzahlen bis zu einer gewissen Bitlänge exakt abspeichern und zumindest Addition, Subtraktion und Multiplikation exakt auf solche Werte anwenden².
        
        ¹: Die interne C-API von Perl unterscheidet, soweit ich das beurteilen kann, zwischen Gleitkommazahlen, vorzeichenbehafteten Ganzzahlen und nicht negativen natürlichen Zahlen, die in einem Skalar gespeichert sein können. Wann jedoch hin und her konvertiert wird, das hängt vermutlich von schwarzer Magie und der aktuellen Mondphase ab ;-)
        
        ²: Jedenfalls solange man keinen Überlauf verursacht indem man eine Zahl produziert, die zwar ganz ist, deren Bitlänge jedoch die Länge der Mantisse überschreitet.
        When C++ is your hammer, every problem looks like your thumb.
      - +41 replies
      - bianca
        
        2013-04-27 18:48
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-27T12:53:56 Raubtier
        Ich glaube, es ist viel wichtiger, dass du genau beschreibst, wie eigentlich gerundet werden soll, wenn du Fließkommazahlen verwendest.
        
        In diesem Fall will ich gar nicht runden.
        Da ich schon gelernt habe, dass PC's nicht korrekt mit Fließkommazahlen rechnen können haben wir ja seinerzeit extra eine zuverlässige integer Funktion erarbeitet. Damit multipliziere ich also alle meine Euro Werte erst mit 100, addiere sie dann und dividiere sie am Ende wieder durch 100. In jedem Zwischenschritt verwende ich die gezeigte integer Funktion. Am Ende bei der Division durch 100 verwende ich erst eine kfmrunden Funktion die wir in einem anderen Thread erarbeitet hatten.
        
        Bisher kam ich damit gut zurecht.
        Leider hat sich dann heute wieder eine Konstellation ergeben, bei der das nun doch wieder nicht klappte. Und der Code zeigt die Konstellation nachvollziehbar.
        Mir wäre also daran gelegen, wenn es eine Möglichkeit gäbe, aus der integer Funktion tatsächlich einen integer heraus zu bekommen mit dem man weiter richtig rechnen kann und nicht irgend einen versteckten Wert an der zigsten Stelle hinter dem Komma der am Ende dazu führt, dass 100000 nicht == 100000 ist.
        10 print "Hallo"
        20 goto 10
        
        +40 replies
        
        Muffi
        
        2013-04-27 20:02
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Dann musst du wohl genauer beschreiben, wer das wir beim erarbeiten war.
        Ich halt die Funktion nach wie vor für quatsch. Ich hab damals auch einen Vorschlag für Auf- und Abrunden gepostet.
        
        Ansonsten les ich öfter bei dir was von falsch. Das ist ungefähr so, wie wenn du dich in ein Auto setzt, keine Ahnung hast was das Runde vor dir und die Pedale unter dir sind und sagst es fährt falsch. Deshalb baust du dir jetzt ne wilde Apparatur, die alles bedient und automatisch dahin fährt wo du grad drandenkst. Da sie aber dann doch keine Gedanken lesen kann fährt sie meist in den Graben.
        1 + 1 = 10
        
        +39 replies
        
        bianca
        
        2013-04-27 20:09
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2013-04-27T18:02:34 Muffi
        Dann musst du wohl genauer beschreiben, wer das wir beim erarbeiten war.
        
        Hab ich gerade nochmal in der Antwort auf tonewheel
        
        2013-04-27T18:02:34 Muffi
        Ich halt die Funktion nach wie vor für quatsch. Ich hab damals auch einen Vorschlag für Auf- und Abrunden gepostet.
        
        Hier geht es nicht um Runden sondern Addieren. Wie kommst du auf Runden?
        
        2013-04-27T18:02:34 Muffi
        Ansonsten les ich öfter bei dir was von falsch. Das ist ungefähr so, wie wenn du dich in ein Auto setzt, keine Ahnung hast was das Runde vor dir und die Pedale unter dir sind und sagst es fährt falsch. Deshalb baust du dir jetzt ne wilde Apparatur, die alles bedient und automatisch dahin fährt wo du grad drandenkst. Da sie aber dann doch keine Gedanken lesen kann fährt sie meist in den Graben.
        
        Sowohl in den beiden Threads zum intern'n als auch zu dem Thread zum Runden zeige ich, was falsch läuft mit Beispielen zum Nachvollziehen. Und wir hätten doch in diesen Threads nicht mit so großer Beteiligung Lösungen erarbeitet, wenn es so einfach wäre, oder?
        
        Aktuell ist halt die Frage, was genau ich falsch mache, dass 100000 nicht == 100000 ist.
        Und nochmal: der Code hier im Thread soll nur ein reproduzierbares Beispiel zeigen. Im echten Code werden einfach ein paar Werte (ich glaube, es sind drei oder vier Stück nur) addiert, mehr nicht. Und da kommen nur ganze Zahlen vor, die ergeben am Ende aber als Summe keine ganze Zahl. Wieso nicht?
        10 print "Hallo"
        20 goto 10
        
        Muffi
        
        2013-04-27 20:18
        
        Subtree with 38 replies: Fliesskommazahl runden
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Runden deswegen, weil du eine Fliesskommazahl zum nächsten int hinrunden wolltest.
        
        modedit Editiert von pq: teilbaum
        Last edited: 2013-05-01 20:11:53 +0200 (CEST)
        1 + 1 = 10
- Gast wer
  
  2013-04-27 14:41
  
  return ''.$wert;?
  Last edited: 2013-04-27 14:47:11 +0200 (CEST)
- +2 replies
- Gast wer
  
  2013-04-27 14:43
  
  tschuldige wollte schreiben:
  Geht das: return ''.$wert; ?
  Last edited: 2013-04-27 14:47:12 +0200 (CEST)
  - bianca
    
    2013-04-27 18:51
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Guest wer
    tschuldige wollte schreiben:
    Geht das: return ''.$wert; ?
    
    Wie/was meinst du hiermit?
    10 print "Hallo"
    20 goto 10

View all threads created 2013-04-27 13:42.