Tangeskurve

[faux]

Zitat von ibp:

was ist mit den x-werten, wo tangens unendlich ist (cos(x)=0)! wo filterst du die in deinem code aus?

Genau das meine ich, das mache ich nämlich und trotzdem tritt der Fehler auf:

Delphi-Quellcode:

for x := 0 to Image1.Width do
begin
  if cos(x / Image1.Width * 4 * pi) <> 0 then
  begin
    y := round(tan(x / Image1.Width * 4 * pi));
    LineTo(x, Image1.Height div 2 - y);
  end;
end;