Показать сообщение отдельно
Старый 04.09.2006, 00:59   #1
impersonalis
Зануда с интернетом
 
Аватар для impersonalis
 
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений
(для 20,935 пользователей)
Гравитация, ускорение и скорость подъёма

По просьбе одного пользователя написал этот пример.

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

Global A_up#=0 - подъёмное ускорение от винта
Global V#=0 - текушая скорость
Const  G#=.0001 - гравитцаионная постоянная

Const up_Step#=.000002 - коэффициент прпироста ускорения
Const koef_1=1*10^5 -коэффициент ускорение_подъёма/скорость_вращения_винта
Const koef_2=1.5*10^5 коэффициент ускорение_подъёма/скорость_вращения_винта для 2ого винта
Суперпозиция ускорений:
Ag#=-G+A_up
Проверка отрыва от поверхности:
bool=LinePick(EntityX(vert,True),EntityY(vert,True),EntityZ(vert,True),0,-1.1,0)
И обнуление сокрости если тело покоится:
If bool V=0
прирост скорости
V=V+ag*dtime
Управление:
down стрелка_вверх - +ускорение
hit стрелка_вниз - -ускорение
пробел - зафиксировать высоту (обнулить скорость и приравнять ускорение подъёма ускорению свободного падения)
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
(Offline)
 
Ответить с цитированием