Анимация Delphi

[elta]

Собственно вопрос детский, но уже неделю мучаюсь - полный бред выходит...

Задание: сделать анимацию летящего мяча, с двумя точками соприкосновения с полом и завершением полета в корзине. Все это - в зависимости от "a - ширины", и "b - высоты" заданного окна.
Проблема в том, что я никак не могу высчитать правильно функцию с 5-тью неизвестными...

Подробнее:
как указано на скрине - есть три части и, соответственно 3 разных функции:
1) мяч вылетает с (0.001*a // 0.5*b) и летит к (1/5*a // b ) ... момент соприкосновения с землей.
2) мяч отталкивается от земли (1/5*a // b ), летит до (3/7*а // 3/4*b) и снова приземляется на (5/7*а // b) ... получается перевернутая парабола.
3) мяч прыгает в кольцо.

Что нужно сделать? Высчитать в функции y:=round(p*sqr(x)+q*x+r); точки p,q,r и чтобы задать траекторию полета мяча.

Кто может - помогите либо с функцией, либо советом, либо ее чем. Работу сдавать во вторник, а идей ноль

P.S.В приложении кидаю то, что до сих пор сделал

[elta]

Ccылка на архив: http://www.rapidshare.ru/598096

Ссылка на скрин: http://pic.rapidshare.ru/598097

[Карась]

В учебнике физике есть нужная формула.
Раздел балистика.

Ничево сложново.

[elta]

в учебнике физики есть много формул) а вот высчитать не могу(

[Карась]

Чтото неочень понятно, что ты написал.
Ну вижу отрисовку картины. Вижу шарик, который по какойто причине просто движется по прямой и на серидине пропадает..

[elta]

угу, а должен продвигаться по траектории, как на скрине)

[mutabor]

Есть ли какие-то ограничения? Что от тебя хотят увидеть?
Как скачет мячик два раза, или функцию с параболами в коде?

[elta]

хотят видеть мячик, который 2 раза ударяется о пол и попадает в сетку
при этом размер окна должен быть не заранее заданным, а свободно вариируемым, то есть функция должна зависеть от ширины и высоты экрана.

зы.сейчас попытался сделать то же самое для заранее заданного окна...получилось стремновато) но уже что то)))

кто в состоянии помочь - стукните плиз в аську 260265894

[Карась]

Как именно должен прыгать мячик?

Наипростейший прыгающий мячик написать несложно.
Я написал, вот только когда он заканчивает прыгать то превращается в "бешеный мячик" и пришлось остановить таймер в избежании потери мячика

Алгоритм полон кривизны, т.к. является толчком (в хорошем смысле этого слова) на верный путь.
Пендали преветсвуются....

var
  Form1: TForm1;
  X, Y, Y_0, U_Y, X_0, U_X, A, T : Real;
  n, m : Integer;
implementation

{$R *.dfm}

procedure TForm1.T1Timer(Sender: TObject);
begin
// Находим координаты мяча
T := T + 0.1;  // Время
y := Y_0 - U_Y * T + A * T * T ; // Высота
n := n + 1; // Ось Х
Shape1.Top := Round(Y); // Присваивание мячу координату У
Shape1.Left := n;  // Тоже... координата Х

// Замедление после удара о пол....
if Shape1.Top > Y_0 Then
  Begin
    U_Y := -U_Y - m;
    T := 0;
    m := m + 20;
  End;
// Под конец, мячик становится "дурным"... Поэтому отключим таймер.
if m > 200 Then T1.Enabled := False;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
T1.Enabled := True; // Включение Таймера
Y_0 := 350; // Начальное значение высоты.
U_Y := 100; // Скорость по У
A := 10; // Ускорение
T := 0; // Время
n := 10; // Ось Х
end;

end.

[elta]

:-p ))))))))

а как сделать, чтобы теперь не стиралась сама "комната"?