Elipsa?

Czesc
Potrzebuje wzoru na wyznaczenie punktow w elipsie, szukalem tego ale jakos nie umialem znaleŹĆ :)

Pozdrawiam

to jest w artykulach nie wie mgdzie ale chyba nie w artykulach delphi ale wiem bo wczoraj to widzialem :U

Równanie elipsy:

<font color="blue">(x^{2) / (a}2) - (y^{2) / (b}2) = 1</span>

Może pomoże :)

a - miejsce przecięcia się elipsy z osią x
b - miejsce przecięcia się elipsy z osią y

Wygodniejsza forma w postaci parametrycznej:
x := acos(t);
y := bsin(t);
t - przebiega wartości [0;2*Pi)

const
  a = 20;
  b = 50;
  OffsetX = 100;
  OffsetY = 100;
var
  t: Integer;
begin
  Canvas.MoveTo(OffsetX + Trunc(a), OffsetY);
  for t := 0 to 360 do
    Canvas.LineTo(OffsetX + Trunc(a*cos(t*Pi/180)), OffsetY - Trunc(b*sin(t*Pi/180)));
end;

Dzieki