Ja, ich grabe einen alten Thread wieder aus.
Und eigentlich sogar aus einem falschen Grund, denn das Folgende ist kein Kommentar, sondern ein echtes Stück Quellcode...
Aber ich musste so lachen, als ich das gelesen habe, dass ich es denjenigen, die es noch nicht kennen, nicht vorenthalten will
.
aus der Funktion "SameValue" (
unit math), um Fließkommazahlen auf Gleichheit zu überprüfen:
Epsilon := Max(Min(Abs(A), Abs(B)) * DoubleResolution, DoubleResolution);
an sich nicht wirklich lustig, aber die Definition von "DoubleResolution" gefällt mir einfach wunderherrlich:
Delphi-Quellcode:
const
FuzzFactor = 1000;
ExtendedResolution = 1E-19 * FuzzFactor;
DoubleResolution = 1E-15 * FuzzFactor;
SingleResolution = 1E-7 * FuzzFactor;
FuzzFactor
?
einfach genial