Полёт Бумеранга - Pascal

[Alter]

Неполучается заставить двигаться так как надо объект бумеранг, неправильно отрисовывается движение. Исходные данные: Точка старта, угол старта, скорость запуска. Хотелось бы получить возвратное движение в исходную точку. Формула поворота точки нашол в инете, только поворачивает фигуру не так как надо, ездит по всему экрану, а надо по средней точке основания(как бы крутится).
Помогите исправить, уже который день сижу голову ломаю.
Спасибо кто поможет.

[B_N]

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

[Alter]

Переделал, только теперь надо сделать полёт бумеранга. Как его релизовать с возвратом в стартовую точку, чтобы за экран неулетал?

[Карась]

1. Нужно задать уравнение движеия бумеранга.
2. Нужно написать процедуру вращения бумеранга вокруг оси.

Точка старта, угол старта, скорость запуска.

Что такое "угол старта"? В Вашей версии программы он может быть от 0 до 360 градусов....... Я смутно представляю как это будет происходить....
Может быть лучше ограничить эот угол например от 0 до 60 град?

[Alter]

"Угол старта" - это угол под которым начинает движение объект.
Изменю угол до [0..60].
Так как задать движение(пример реализации)?
Вращение имеется, он же вращает себя при движении.

[B_N]

Alter, а в чём вообще заключается задача? Бумеранг бросается, вообще говоря, из вертикального положения и на виде сверху его вращения видно не будет. А траектория его движения весьма "хитрая", так что её, может быть, стоит задать изначально? Вряд ли задача состоит в том, чтобы её вычислять?...

[Alter]

Просто объект движется под определёным углом по экрану, указвают точку запуска, и по идеи должен тупо вернуться назад(по элипсу например как реализовать движение?).
Если задавать самому, то через чего прописать траекторию?
Поправьте как надо, или пример создания трактории.

[Карась]

Надо вбрать траекторию. Взять листик и описать её математически.
В лоб очень трудно сделать.

Вот я набросал отрисовку простеньклй для бумеранга.
Угол наклона от -15 до 40. Там просто за экран зайдёт картинка:

Uses CRT, Graph;

Const Pi = 3.1415926;

Var x_n, y_n, dL, a, y, x : Real;
    d, e, r : Integer;
    x_c, y_c : Real;
    dF : Integer;

Begin
x_n := 50; y_n := 400; dL := 0;

Readln(a);

d := Detect; InitGraph(d, r, '');
e := GraphResult;

While dL <= 350  Do
      Begin
           dL := dL + 0.5;
           y := y_n - dL * Sin(a * Pi/180);
           x := x_n + dL * Cos(a * Pi/180);
           PutPixel(Round(x), Round(y), Red);
      End;

x_c := x_n + dL * Cos((a + 15) * Pi/180);
y_c := y_n - dL * Sin((a + 15) * Pi/180);

While dF < 200 Do
    Begin
         dF := dF + 1;
         x := x_c + 91 * Cos((dF + 275 + a) * Pi/180);
         y := y_c - 91 * Sin((dF + 275 + a) * Pi/180);
         PutPixel(Round(x), Round(y), Red);
    End;

dL := 350;
For dF := 1 To 700 Do
      Begin
           dL := dL - 0.5;
           y := y_n - dL * Sin((a + 30) * Pi/180);
           x := x_n + dL * Cos((a + 30) * Pi/180);
           PutPixel(Round(x), Round(y), Red);
      End;

Readln;
CloseGraph;
End.

Основная отрисовка делалась по формулам. Коегде значение подбирал методом тыка.
Кое где криво, но это мне просо уже надоело думать почему делается не так и я делал лишбы запустилось....

[mutabor]

А если без метода тыка, есть же формула эллипса, нужно поискать (а можно и спросить) у математиков. Задать начальную точку (а точнее угол), центр эллипса, и потом по формуле продолжать, с определенным шагом в градусах. Наибольшее удаление будет при удалении на 180° от исходного, возврат в исходную точку 360°. А расстояние до центра эллипса пропорционально силе броска.

По кругу я делал движение по формуле, но не уверен что для эллипса она та же, если та же, то я дам код.

[Карась]

У меня не просто эллипс.

У меня сначала летит по прямой, затем вырисовывает кусок окружности и возвращается назад...

Тость сложня фунция.

Стандартные картинки это не интересо

ЗЫ: к сожалению принскрин с кране сдеать неполучилось... Вдимо кнопка принскрин не там ищит