forum.boolean.name - Гравитация, ускорение и скорость подъёма

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

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

Код:

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 стрелка_вниз - -ускорение
пробел - зафиксировать высоту (обнулить скорость и приравнять ускорение подъёма ускорению свободного падения)