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

[impersonalis]

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

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

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

[impersonalis]

Чуть не забыл: отдельное спс PAX За модель.