Движение обьекта по траектории параболы

[nelo_001]

ща опишу процедуру

[nelo_001]

Я пытаюсь описать процедуру в привате даёт ошибку , что с ним не так ?

private
procedure cord(x1,x2:integer):integer;
{ Private declarations }

Снимок.JPG

[Аватар]

В процедура не возвращает результата. Именно об этом сообщение об ошибке. function

[nelo_001]

Вообщем , тут я разобрался создал процедуру , тер ошибка с вызовом её
Часть описания

public
{ Public declarations }
procedure cord(x1,y1,x2,y2,x3,y3:integer);
end;

var
Form1: TForm1;
x1,y1,x2,y2,x3,y3:integer; a,b,c:real;
implementation

{$R *.dfm}
procedure Tform1.cord(x1,y1,x2,y2,x3,y3:integ er);
begin
a:=( y3-(x3*(y2-y1)+x2*y1-x1*y2)/(x2-x1) )/(x3*(x3-x1-x2)+x1*x2 );
label7.caption:='a = '+floattostr(a);
end;

и сама ошибка при вызове
Безымянный.jpg

[type_Oleg]

Сообщение от Аватар

В процедура не возвращает результата. Именно об этом сообщение об ошибке. function

Да, но лучше все же процедуру. Без ):integer; конечно

nelo_001, а что конкретно именна эта процедура(функция) должна вычислять у вас ? :

procedure cord(x1,x2:integer):integer;

Там же нужно вычмслить коэффициэнты для формулы параболы a,b,c по трем точкам (x1,y1),(x2,y2),(x3,y3) , а у вас только x1,x2

Наверное, как то так

procedure procABC(x1,x2,x3,y1,y2,y3:integer;var a,b,c:Real);

** исправил

PS Только что увидел #14. То, что выделено - вообще жуть какая-то.

[nelo_001]

Нет , в смысле , я это конечно убрал , это просто был тест , на то , что много переменных .
_________
Отлично числа совпали

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

Получится:
a= 0.002812913
b= -1.85542328
c= 487.0824074

Что дальше ? 3 точки найдены
_________
2.JPG

[type_Oleg]

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

.. Что дальше ? 3 точки найдены
Вложение 69872

Это не 3 точки, это 3 коэффициента.

Дальше - по формуле y=a*x^2+b*x+c вычисляете координаты точек и строите линию в Canvas. X - перебираете в цикле с шагом, например 5, Y - вычисляете, и с помощью методов Canvas.LineTo и Canvas.MoveTo - рисуется в виде ломаной.

Можно через линии Безьё (Canvas.PolyBezier и Canvas.PolyBezierTo), но я не знаю, насколько это красиво выйдет. И там еще надо массив координат, ну на фиг ...

А можно вообще с шагом 1, просто по точкам , через Canvas.Pixels
Вот так, например - по точкам. И я процедуру сделал не принадлежащую форме, а просто.

implementation

{$R *.dfm}
procedure procABC(x1,x2,x3,y1,y2,y3:integer;var a,b,c:Real);
 begin
 a:=( y3-(x3*(y2-y1)+x2*y1-x1*y2)/(x2-x1) )/(x3*(x3-x1-x2)+x1*x2 );
 b:=(y2-y1)/(x2-x1)-a*(x1+x2);
 c:=(x2*y1-x1*y2)/(x2-x1)+a*x1*x2;
 end;

procedure TForm1.Button1Click(Sender: TObject); // вычисление a,b,c  и рисование параболы
var a,b,c:Real;
    x1,x2,x3,y1,y2,y3,Xpar,Ypar:Integer;
begin
 x1:=56;  x2:=392;  x3:=632;  y1:=392;  y2:=192;  y3:=438;  // просто для примера
 procABC(x1,x2,x3,y1,y2,y3,a,b,c);
 for Xpar:=x1 to x3 do Canvas.Pixels[Xpar,Round(a*Xpar*Xpar+b*Xpar+c)]:=clRed;
end;

end.

[nelo_001]

O_0 .......
-------------
Теперь табличка х у ?
2.JPG

[type_Oleg]

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

.. Теперь табличка х у ?

Зачем это ? Это что, координаты вершины параболы вычислять пытаетесь? Зачем ? Кстати, неправильно вычислили.

Все сделано. Задано начало - откуда прыгать, задан конец - куда прыгать .
Третью, промежуточную точку - взяли просто от балды, раз у вас больше нет никаких данных о параболе, кроме начала и конца. Все построено.

[nelo_001]

Ура ! нашел ошибку !
все дело было в лефтах и топах

x1:=image2.left;
y1:=image2.Top;
x2:=image3.left;
y2:=image3.Top;
x3:=image1.left;
y3:=image1.Top;

вот как надо было
Ну и вот , что получилось
2.JPG
Спасибо друзья большое !!!!
Завтра уже разберем как шарик по линии пустить