Hallo!
Also eine Division schließe ich mal aus, denn dann würde die Fehlermeldung ja "Division by Zero" lauten...
Zur Sicherheit hab ich das mal mit folgender Anweisung ausgeschlossen:
Delphi-Quellcode:
for x := 0 to Image1.Width do
if cos(x / Image1.Width * Frq.Value * pi) <> 0 then
begin
y := round(Amp.Value * tan(x / Image1.Width * Frq.Value * pi));
LineTo(x, Image1.Height div 2 - y);
end;
Also ich hab die Stelle jetzt:
Delphi-Quellcode:
for x := 0 to Image1.Width do
begin
y := round(Amp.Value * tan(x / Image1.Width * Frq.Value * pi)); //Hier ist es....
LineTo(x, Image1.Height div 2 - y);
end;
Den Wert hab ich noch nicht herausgefunden, aber vielleicht bringt da ja jemand zusammen...