Парабола на канве

[Kapitan4ik]

Всем привет.
На канве по центру расположены оси и окружность(радиус окружности задаю я сам).
Как из начала координат провести параболу?
Заранее спасибо

[BDA]

const
  x0 = 100;
  y0 = 150;
  a = 10;
  b = 400;
var
  x: integer;
...
  x := a;
  canvas.MoveTo(x, -(x - x0) * (x - x0) + y0);
  for x := a to b do
    canvas.lineto(x, -(x - x0) * (x - x0) + y0);

[type_Oleg]

Сообщение от Kapitan4ik

Как из начала координат провести параболу?

Какую параболу? Или все равно, лишь бы параболу.

[eval]

окружность нарисовали, а параболу не смогли.. все равно что отгадал все буквы не смог отгадать слова

[Kapitan4ik]

Забыл написать, парабола обычная, x^2.

Сообщение от BDA

const
  x0 = 100;
  y0 = 150;
  a = 10;
  b = 400;
var
  x: integer;
...
  x := a;
  canvas.MoveTo(x, -(x - x0) * (x - x0) + y0);
  for x := a to b do
    canvas.lineto(x, -(x - x0) * (x - x0) + y0);

Спасибо, но по-вашему коду рисуется вот такое:

[Stilet]

Правильно, потому что нужно не бездумно копипастить а внимательно изучать предложенное. В примере BDA canvas относится к форме
Соответственно тебе нужно применить указанные методы для канвы твоего компонета, что отображает рисунок.

[BDA]

Ну и не забыть задать центр координат

[Kapitan4ik]

Сообщение от BDA

Ну и не забыть задать центр координат

Спасибо огромное, получилось.

Сообщение от BDA

Ну и не забыть задать центр координат

Еще вопрос, как по вашему способу увеличить параболу в размерах?
Выставляю перед скобкой большее число-парабола наоборот сужается. Пытаюсь подставить дробь-там только целочисленные значения

[BDA]

round(-(x - x0) * (x - x0) / 2 + y0)

[Kapitan4ik]

Сообщение от BDA

round(-(x - x0) * (x - x0) / 2 + y0)

Вот теперь точно все. Спасибо огромное