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;
Es ist besser du machst eine Abfrage auf das Argument, dass das nicht die unerlaubten Werte annimmt. Da die cosinus-Funktion eine Gleitkommazahl zurück gibt wird die fast nie exakt 0 sein, sondern u.U. 0.00...1!