Tangens

0

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

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1