[trraktorrist]

ДОбрые людти помогите пожалуйста,мне для зачета по Копьютерной графике нужно на делфи написать прогу, котарая чертит график,вот два варианта формул,по которым его нужно начертить:
1)овал декарта (x^2 + y^2- 2Rx)^2-l^2 (x ^2+ y^2) = k
2)Трактриса x=a*(cos(t)+ln(tg(t/2))
y=a*sin(t)
помогите чем можите!!!!

[placiba]

Второй вариант легоко реализовать с помощью компонента TChart, у тебя функция задана параметрически

Код:

const th=0.01;
var
t, tmax:real;
begin
a:=strtofloat(edit1.text);
tmax:=strtofloat(edit2.text);
t:=0;
while t<tmax//максимальное время 
do
begin

chart1.series[0].AddXY(a*sin(t),a*(cos(t)+ln(Sin(t/2)/Cos(t/2)));  
t:=t+th;
end;
end;

[trraktorrist]

placiba огромное спасибо помогло!!!!