Tangeskurve

[faux]

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...