Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.05.2013, 21:15
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
Вопрос Элементарная геометрия

Всем привет!

Столкнулся с задачей, над которой сижу уже второй день и не могу найти разумного решения.
Внизу экрана находится фиксированная пушка, ствол которой можно вращать влево-вправо. По полю рандомно катается танк; цель игрока - поразить этот танк из пушки.
Как определить, находится ли танк на линии прицеливания пушки?

Функцию писал так:
Код:
Result:=(Y - Y1) = (X - X1) * tan(Angle)
, где (X, Y) - координаты танка, (X1, Y1) - координаты лафета пушки, Angle - угол поворота ствола. Но, увы, не работает

Можно ли решить эту задачу другим путём? Заранее благодарен за совет
__________________
Ne timeas obscurum.
Ответить с цитированием
  #2  
Старый 19.05.2013, 21:23
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

1) А угол в каких единицах задан?
2) Сравнение дробных чисел должно быть приблизительным.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 19.05.2013 в 21:25.
Ответить с цитированием
  #3  
Старый 19.05.2013, 21:24
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
По умолчанию

В градусах...
Сейчас попробую перевести в радианы и перепроверить результат.
__________________
Ne timeas obscurum.
Ответить с цитированием
  #4  
Старый 19.05.2013, 21:34
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
По умолчанию

То есть нужно ввести какую-то константу Е и по ней приблизительно сравнивать выражения, например
Код:
Result:=(Y - Y1) - (X - X1) * tan(Angle) < E;
Может, у меня ошибка в формуле?..
__________________
Ne timeas obscurum.
Ответить с цитированием
  #5  
Старый 19.05.2013, 21:39
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Проверь знаки разностей координат.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Lothlorien (19.05.2013)
  #6  
Старый 19.05.2013, 21:42
Аватар для Lothlorien
Lothlorien Lothlorien вне форума
Новичок
 
Регистрация: 06.04.2011
Адрес: Солнечная система
Сообщения: 69
Версия Delphi: 7.0
Репутация: 12
По умолчанию

Да, тут при E = 0.5 пушка начинает попадать по танку, даже если целится в противоположную сторону

Но формула в принципе грамотная (если закрыть глаза на знаки)? Я полагал, что собака зарыта в неверной формуле...
__________________
Ne timeas obscurum.
Ответить с цитированием
  #7  
Старый 19.05.2013, 21:45
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Нормальная формула, в точности по определению тангенса. Хотя можно было бы угол поворота задавать сразу этим отношением (тангенсом), тогда бы не пришлось все время его считать. Только знаки нужно правильно учитывать, и разобраться со случаем альфа = 90 около градусов.
В общем случае можно записать поворот уравнением прямой (Ax + By + C = 0) и подставлять туда координаты танка, проверяя примерное равенство.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 19.05.2013 в 21:48.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
Lothlorien (19.05.2013)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:52.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter