КАК нарисовать круг

[Elmut]

как нарисовать круг с радиусом 1
через компонент TChart
по ось х 40 точек

From Stilet: УдаФФские замашки оставляем за бортом.

[_Dmitry]

var
  i: integer;
  h,x,y: double;
begin
  Series1.XValues.Order:=loNone;
  h:=2/40;
  for i:=-20 to 20 do
    begin
      x:=i*h; y:=sqrt(1-x*x);
      Series1.AddXY(x,y);
    end;
  for i:=20 downto -20 do
    begin
      x:=i*h; y:=-sqrt(1-x*x);
      Series1.AddXY(x,y);
    end;

[Elmut]

меня еше один вопрос интересует как етому кругу добавить Оптикаемый воздушный поток по формуле Жуковского или другим методом
T(z):=z+step(Re(z))*sqrt(z*z-1)
Z - это точки прямой
step - Пороговая единичная функция
евть прога написана на matcade надо сделать на DElphi

[B_N]

Elmut, ловко Вы от рисования круга перешли к АД. Вы линии тока изобразить хотите? Тогда давайте и формулы - всё это уже давно и прочно забыто за ненадобностью. Сдаётся, правда, что эта формула нарисует "головастика" с прямой линией после срыва потока.

[Elmut]

у меня небыло придмета агеде это задание по ОСНОВАМ ДИСКРЕТНОЙ МАТЕМАТИКИ
я уже 3 недели мучаюсь у меня вечно бред выходит.
ести хто-то может посказать как сделать и сам напишу. половина я уже написал как смох самая большая была проблема с мимаю единицею её в DElphi нет
могу показать все задание на маткаде которое мне дали. мне главное чтобы вышел ресунок препат всеравно не смотрит код а сроки уже поджымают.

[B_N]

Дискретная математика? А Re это что, не число Рейнольдса? Тогда будьте добры выражаться яснее, что Вы хотите сделать, как звучит задание и т.д. Тогда будет понятно, что нужно подсказывать.