Rechenfehler

[Kroko1999]

das sind übliche Rundungsfehler

Delphi-Quellcode:

function NullVal(const Value,Epsilon: Extended): Extended;
begin
  if Abs(Value)<Epsilon then Result := 0
                        else Result := Value;
end;

//EDIT
Aufruf:  A := NullVal(A,1E-10);