Sinus Funktion spinnt?!

[Hawkeye219]

Hallo,

vielleicht kannst du die Werte etwas vorbehandeln:

Delphi-Quellcode:

function Fuzzy (aValue: Double;  aEpsilon: Double = 1E-9): Double;
begin
  if (Abs(aValue) < aEpsilon) then
    Result := 0.0
  else
    Result := aValue;
end;

begin
  Label1.Caption := Format('x: %.3g', [Fuzzy(x)]);
  Label2.Caption := Format('y: %.3g', [Fuzzy(y)]);
end;

Gruß Hawkeye