AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Rundungs-Probleme bei Ausgabe als String

Rundungs-Probleme bei Ausgabe als String

Ein Thema von raller09 · begonnen am 15. Feb 2018 · letzter Beitrag vom 16. Feb 2018
Antwort Antwort
Seite 1 von 2  1 2   
raller09

Registriert seit: 7. Nov 2005
38 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 10:39
Moin,

ich habe seit langen mal wieder ein Problem mit der Rundung.
Die grundsätzlichen Probleme mit der Darstellung von Fließkomma-Werten in binärer Form sind mir klar. Auch die interne Datenhaltung verstehe isch (einigermaßen ).
Wenn mir alles klar wäre, würde ich jetzt vermutlich aber nicht fragen:

Ich habe einen Wert aus einer Datenbank, der in eine Delphi-Double-Variable kopiert wird.
Dieser Wert soll dann in einem String ausgegeben werden. Dabei sollen fix 5 Nachkommastellen in der String-Ausgabe genutzt werden.

Delphi-Quellcode:
function Test: string;
var
  lWert: Double;
  lAnzahlNachkommaStellen: integer;
begin
  Result := '';

  lAnzahlNachkommaStellen := 5;
  lWert := 13.727735;

  Result := Format( '%.*f',
                    [ lAnzahlNachkommaStellen,
                      lWert]);
end;

Leider ist es bei mir so, das dabei bei unterschiedlichen Aufrufen unterschiedliche Werte zurückgeliefert werden.
Beim ersten Aufruf wird bei mir aktuell reproduzierbar "13.72773" ausgegeben, bei den folgenden "13.72774". Dazwischen habe ich mit dem Programm einiges gemacht.

Ich habe auch schon einige der anderen Umwandlungen genutzt:
FloatToStr( ...),
FloatToStrF( ...);

diese verhalten sich anscheinend identisch.


Ich denke, in meinem Fall ist es nicht das "Bankers Rounding", dass mir die Werte verstellt. Da müsste dann ja immer der gleiche Wert herauskommen. Auch sage ich nicht, welcher der beiden Werte der richtige sein muss (das hängt ja von der Rundung ab...). Ich benötige nur reproduzierbar gleiche Werte.


Ich habe dann zum testen folgende Funktion probiert:
kaufmännisch runden

Delphi-Quellcode:
  Result := Format( '%.*f',
                    [ RoundX( lWert,
                              lAnzahlNachkommaStellen)]);
Diese verhindert aber das Unterschiedliche Ergebnis bei mehreren Aufrufen nicht.

Erst wenn ich die Rundungs-Funktion mit "lAnzahlNachkommaStellen + 1" aufrufe, scheint es so, dass ich ein reproduzierbares Ergebnis bekomme...
Ist das die korrekte Lösung?
Oder stehe ich ganz woanders auf dem Schlauch...

Zusätzlich: Entspricht die Funktion RoundX aus der Library nicht auch der Funktion "SimpleRoundTo" aus Delphi (bei mir Berlin 10.1 Up2), wenn für "RoundUp" die "Alternative Implementation" genutzt wird? Kann mir jemand den Unterschied erklären? Was ist hier der Unterschied zwischen "Int" und "Trunc", hat die Reihenfolge von "/" und "*" Einfluss auf das Ergebnis?


Vielen Dank
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.474 Beiträge
 
Delphi 12 Athens
 
#2

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 11:26
Leider ist es bei mir so, das dabei bei unterschiedlichen Aufrufen unterschiedliche Werte zurückgeliefert werden.
Beim ersten Aufruf wird bei mir aktuell reproduzierbar "13.72773" ausgegeben, bei den folgenden "13.72774". Dazwischen habe ich mit dem Programm einiges gemacht.
Dann zeig doch mal alle Manipulationen an dieser Variablen von der ersten Zuweisung über die Anzeige mit dem ersten Wert bis zu dem Zeitpunkt, wo der andere Wert angezeigt wird.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
raller09

Registriert seit: 7. Nov 2005
38 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#3

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 11:42
Dann zeig doch mal alle Manipulationen an dieser Variablen von der ersten Zuweisung über die Anzeige mit dem ersten Wert bis zu dem Zeitpunkt, wo der andere Wert angezeigt wird.

Das ist eine neue Variable. zwischendurch alles freigegeben. Längerer Ablauf. die Variable ist Teil eines TDictionary< Integer, Double>.
Der Weg zu der Variable ist aber komplett identisch... Es wird nach der Zuweisung nur Lesend darauf zugegriffen.
Es jeweils von mir der selbe Programm-Ablauf angesprochen (Test-Button auf dem Haupt-Formular), wodurch die Daten gelesen werden.


Das MouseOver in Delphi über die Variable zeigt immer "13,727735".
ein "Frac( lWert)" in der Rundungs-Funktion zeigt bei der Fehlersuche -> Überwachte Ausdrücke beim ersten Durchlauf "0,499999999913257", bei den folgenden "0,5".
Somit ist für Delphi die Zahl < ,5 -> also beim ersten Durchlauf immer abrunden.


Ich hab schon bei mir nach SetRoundMode u. ä. gesucht aber nichts gefunden. nachdem ich den String erstellt habe,m wird auch eine .dll genutzt, die den erstellten String verarbeitet.

Selbst meine kleine Test-Funktion aus meinem letzten Post verhält auch so. zuerst "13,72773", nach dem Aufruf meiner Funktion ""13,72774".
Vielleicht ist das der Hinweis, dass da doch was verstellt wird?!?
  Mit Zitat antworten Zitat
Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 11:58
Ich hab schon bei mir nach SetRoundMode u. ä. gesucht aber nichts gefunden. nachdem ich den String erstellt habe,m wird auch eine .dll genutzt, die den erstellten String verarbeitet.
Was ist das für eine Dll?

Einfach aus Erfahrung: Nach dem Aufruf einer Fremdle kannst Du nie davon ausgehen das
die FPU noch den gewünschten State hat. Deshalb for dem Aufruf mit
GetFPURoundMode sichern und nachher mit SetFPURoundMode() wieder setzen.
Fritz Westermann
  Mit Zitat antworten Zitat
freimatz

Registriert seit: 20. Mai 2010
1.452 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 12:14
Schlage vor du machst mal ein ganz kleines Testprogramm dafür.
  Mit Zitat antworten Zitat
raller09

Registriert seit: 7. Nov 2005
38 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#6

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 14:41
Was ist das für eine Dll?

Einfach aus Erfahrung: Nach dem Aufruf einer Fremdle kannst Du nie davon ausgehen das
die FPU noch den gewünschten State hat. Deshalb for dem Aufruf mit
GetFPURoundMode sichern und nachher mit SetFPURoundMode() wieder setzen.
Das ist ein sehr guter Hinweis!

Ich nutze lpsolve für eine lineare Optimierung (https://sourceforge.net/projects/lpsolve/).
Das ist eine in C geschriebene .dll.

In der Delphi-Zugriffs-Datei steht:
Code:
 *  Important information
 *  Solver library is compiled for a different Control Word, you should change
 *  the Delphi control Word to avoid foating point operation errors.
 *                _control87     Set8087CW
 *  Visual Studio $9001F    ->  639
 *  GCC          $8001F    ->  895
und in der IDE (Main.pas -> in Delphi geschrieben):
Delphi-Quellcode:
initialization
  set8087cw(895);

end.
Ich habe jetzt meine Kommunikation mit der .dll in folgenden Block gepackt:
Delphi-Quellcode:
  //lRoundingMode := GetRoundMode;
  l8087CW := Get8087CW;
  try
    {
    Hier der gesammte Zugriff auf die .dll
    }

  finally
    ShowMessage( (*
                'alt: ' + TRttiEnumerationType.GetName( lRoundingMode) +
                sLineBreak +
                'neu: ' + TRttiEnumerationType.GetName( GetRoundMode) +
                sLineBreak +
                *)

                 'alt: ' + IntToStr( l8087CW) +
                 sLineBreak +
                 'neu: ' + IntToStr( Get8087CW)
                 );

    //SetRoundMode( lRoundingMode);

    Set8087CW( l8087CW);
  end;
Das liefert mir:

1.Aufruf
alt: 4991
neu: 610

folgende Aufrufe:
alt: 4991
neu: 4962

Da ich den Wert mittels "Set8087CW" nach der .dll zurückstelle, passt "meine" Rundung/String-Erstellung, ohne das ich irgendwie zusätzlich runden muss...(hat auch tatsächlich nicht korrekt funktioniert)!


Was mich jetzt aber noch stört: Die .dll hat beim 2ten Aufruf einen anderen Wert gesetzt.
Verändert sich dadurch das Verhalten der .dll? (vermutlich, oder?)
Könnt ihr mir hier weiterhelfen, oder muss ich das mit dem Erstellern der .dll klären?


Darf ich im laufenden Programm Set8087CW nutzen? Was wird dadurch gemacht?


Danke,
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#7

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 16:48
Darf ich im laufenden Programm Set8087CW nutzen? Was wird dadurch gemacht?
Darfst du schon. Das X87 Control Word besteht aus mehreren Bits, die unterschiedliche Bedeutungen haben:
7jkfh.png

Nähere Infos dazu entnimmst du am besten der "Intel Architecture Software Developer's Manual; Vol I: Basic Architecture".

Was RC angeht, sind hier die relevanten Werte:
Code:
Round to nearest even      = $00B
Round down toward infinity = $01B
Round up toward infinity   = $10B
Round toward zero (trunc)  = $11B
Was mich jetzt aber noch stört: Die .dll hat beim 2ten Aufruf einen anderen Wert gesetzt.
Verändert sich dadurch das Verhalten der .dll? (vermutlich, oder?)
Kann gut sein, dass nur die Exception Masks geändert wurden. Ich schaue mal nach .. Edit: Ja genau z.b. zwischen 4991 und 4962 ändern sich nur die Exception Masks.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)

Geändert von Zacherl (15. Feb 2018 um 17:00 Uhr)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 19:55
Hallo,

Zitat:
Erst wenn ich die Rundungs-Funktion mit "lAnzahlNachkommaStellen + 1" aufrufe, scheint es so, dass ich ein reproduzierbares Ergebnis bekomme...
Das ist genau der richtige Ansatz!
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#9

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 15. Feb 2018, 20:33
Hallo,

Zitat:
Erst wenn ich die Rundungs-Funktion mit "lAnzahlNachkommaStellen + 1" aufrufe, scheint es so, dass ich ein reproduzierbares Ergebnis bekomme...
Das ist genau der richtige Ansatz!
Ich wollte gerade sagen. Das kann es nicht sein, dass man für eine solche Funktion der Maßen tief in den Prozessorinstruktionen eingreifen muss. Wenn das der Fall ist, dann macht man irgendwas verkehrt.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
raller09

Registriert seit: 7. Nov 2005
38 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#10

AW: Rundungs-Probleme bei Ausgabe als String

  Alt 16. Feb 2018, 08:40
Darfst du schon. Das X87 Control Word besteht aus mehreren Bits, die unterschiedliche Bedeutungen haben.
Nähere Infos dazu entnimmst du am besten der "Intel Architecture Software Developer's Manual; Vol I: Basic Architecture".

Was RC angeht, sind hier die relevanten Werte:
Code:
Round to nearest even      = $00B
Round down toward infinity = $01B
Round up toward infinity   = $10B
Round toward zero (trunc)  = $11B
Habe gesten nachmittag auch das Dokument noch gefunden. Ist dort recht gut erklärt.

Kann gut sein, dass nur die Exception Masks geändert wurden. Ich schaue mal nach .. Edit: Ja genau z.b. zwischen 4991 und 4962 ändern sich nur die Exception Masks.
Hier mal die Bit-Schreibweise meiner Werte:
Code:
                                      keine Berücksichtigung
Dec    Hex       C RC  Exception  von mir
4991    137F   0001 0011 0111 1111   Delphi vor erster Start
 610     262           10 0110 0010   nach 1. Aufruf
 610     262           10 0110 0010   folgende Aufrufe

                   I  PC            Schutz mit try ...
Dec    Hex       C RC  Exception  finally
4991    137F   0001 0011 0111 1111   Delphi vor erster Start
 610     262           10 0110 0010   nach 1. Aufruf
4962    1362    0001 0011 0110 0010   folgende Aufrufe

                   I  PC            Schutz mit try...
Dec    Hex       C RC  Exception  finally + Setzen "37F"
4991    137F   0001 0011 0111 1111   Delphi vor erster Start
 895     37F          11 0111 1111   manuell gesetzt
 610     262           10 0110 0010   nach 1. Aufruf
 895     37F          11 0111 1111   manuell gesetzt
 866     362           11 0110 0010   folgende Aufrufe

                   I  PC            Schutz mit try...
Dec    Hex       C RC  Exception  finally + Setzen "262"
4991    137F   0001 0011 0111 1111   Delphi vor erster Start
 610     262           10 0110 0010   manuell gesetzt
 610     262           10 0110 0010   nach 1. Aufruf
 610     262           10 0110 0010   manuell gesetzt
 610     262           10 0110 0010   folgende Aufrufe
Fazit:
  • die Dll setzt sich immer die gleiche Exception Mask
  • Der Rundungs-Modus (RC) wird nicht geändert
  • Infinity wird zwar geändert, spielt aber entsprechend der Dokumentation aus dem Link keine Rolle:
    Zitat:
    8.1.6 Infinity Control Flag
    The infinity control flag (bit 12 of the x87 FPU control word) is provided for compatibility with the Intel 287 Math
    Coprocessor; it is not meaningful for later version x87 FPU coprocessors or IA-32 processors. See Section 4.8.3.3,
    “Signed Infinities,” for information on how the x87 FPUs handle infinity values.
    Ist der Wert also jetzt egal?
  • es gibt ggf. eine Abweichung bei Precision Control (PC), mögliche Werte
    Code:
    Precision                          PC Field
    Single Precision (24 bits)         00B
    Reserved                           01B
    Double Precision (53 bits)         10B
    Double Extended Precision (64 bits) 11B
    -> erster Aufruf läuft immer auf "Double Precision", folgende auf "Double Extended Precision", falls der vorherige Wert nicht übereinstimmt. Ich habe mir nicht die genauen Gründe angesehen. Das werde ich mit den Erstellern der dll abklären. Wenn ich dort einfach auch "262" setze, dann wird der Wert nicht geändert.
  • Durch die .dll wird die Eigenschaft des "x87 FPU Control Word" für das Programm verstellt, ich muss/sollte also mir vorher den Wert merken und ich nachher zurücksetzen.

Zitat:
Erst wenn ich die Rundungs-Funktion mit "lAnzahlNachkommaStellen + 1" aufrufe, scheint es so, dass ich ein reproduzierbares Ergebnis bekomme...
Das ist genau der richtige Ansatz!
Ich wollte gerade sagen. Das kann es nicht sein, dass man für eine solche Funktion der Maßen tief in den Prozessorinstruktionen eingreifen muss. Wenn das der Fall ist, dann macht man irgendwas verkehrt.
Das wäre mir auch lieber. Aber es hat sich leider bei mir gezeigt, dass auch mit der Rundung andere Ergebnisse (an anderer Stelle) von den "Format" und "ToStr"- Funktionen ausgegeben werden (also wird das Round... schon irgendwie anders arbeiten).
Daher ist das "try ... finally" zum "Merken und Zurücksetzen" schon notwendig, denke ich.


Vielen Dank für eure Hilfe!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz