Jak narysować na canvacie funkcje tangens
i zrobić linię przerywaną w miejscach gdzie tangens dąży do nieskończoności?
Jak rysuje tangens poleceniem lineto to co pi/2 + k*pi rysuje mi linie z góry na dół
0
0
for i := 0 to 100 do
Canvas.Pixels[i, Trunc(sin(i/100Pi)/cos(i/100Pi)) := clRed;
oczywiście ten sposób rysuje kropkami.
Jeżeli chcesz ciągłe, to gdy wartość funkcji zmienia znak z + na - użyj MoveTo:
var
Poprzednia: Integer;
for i := 0 to 100 do
begin
Wart := Trunc(sin(i/100Pi)/cos(i/100Pi));
if (Poprzedninia > 0) and (Wart