puedes hacerlo facilmente mediante coordenadas polares tomando como variable independiente el angulo ro algo asi como:
txy(a,0);
pd;
for i := 0 to 360 step 2 do
begin
ro := sqrt(a^2*b^2/(b^2*cos(i)^2+a^2*sin(i)^2));
txy(ro*cos(i),ro*sin(i));
end;
Esta tomado de un interprete que me hice para el trazado de perfiles metalicos mediante graficos de tortuga, pero te puede dar una idea de como hacerlo.
Saludos
|