// -----------------------------------------------------------
// Flightplan for the orbiter space simulation 
// for use with the Autopilot MFD
// 
// AutopilotMFD (c) 2005 by R. Bumm, Munich 
// -----------------------------------------------------------
// flightplan landing in Cape Canaveral!
//
select Wallops Island
// Привязка к ближайшей базе (Wallops Island) для определения начала отсчета
set apcontrol airfoil
set afcontrol on
// Включение автопилота
set timeacc 10
// Ускорение времени х10
wait distin 170000.
// Начало отсчета времени (170 км лдо базы привязки - примерно траверз)
set timeacc 100
// Ускорение времени х100
//wait 4615. - время до торможения без использования внутреннего автопилота DG-IV (Alt+7) 
wait 4580.
// Ожидание 4580 сек
set timeacc 10
// Ускорение времени х10
wait 2.
set speed 7260.
maintain speed
//Установить скорость после торможения  7260 м/с (при этом АоА=~1.95 гр.)
run oretrograde
wait 100.
// Произвести разворот двигателями вперед для торможения с ожиданием окончания маневра в течении 100 сек
burn main 100.
// Включить главные двигатели для тормоджения (примерно за 6000 км до базы посадки)
wait speedless 7260.
burn main 0.
// Ожидать уменьшения скорости не менее 7260 м/с
run prograde
// Занятие положения prograde (носом КА вперед)
set timeacc 10
// Ускорение времени х10
wait 30.
// Ожидание 30 сек
set timeacc 100
// Ускорение времени х100
wait altdesc 130000.
// Ожидание высоты 130 км
set timeacc 10
// Ускорение времени х10
stop apa
// Стоп канала автопилота APA
run hlevel
// Занятие горизантального поожения (подготовка к торможению в атмосфере)
wait 25.
// Ожидание 30 сек
pitch +34.
// Занятие угла тангажа 40 гр. (угла атаки - AOA)
// wait 10.
wait altdesc 90000.
pitch +40.
// Ожидание высоты 90 км и занятие угла тангажа 40 гр.
wait altdesc 75000.
pitch +40.
// При включении внутреннего автопилота DG-IV для reentry (Alt+7) до высоты 30 км 
// программа только листает команды без их выполнения 
// Ожидание высоты 75 км и занятие угла тангажа 40 гр., после которой....
run hlevel
elv up 100.
set timeacc 0.2
elv up 100.
pitch +40.
// ... на 3,5 сек нажать клавишу ВНИЗ для содания тенденции поднятия носа КА
wait 1
// Ожидание 1 сек (в реале - 5 сек при ускорении времени полета 0,2)
pitch +40.
// Занятие угла тангажа 40 гр. (угла атаки - AOA, и далее)
set timeacc 10
// Ускорение времени х10
wait altdesc 63000.
pitch +40.
elv up 100.
wait altdesc 52000
pitch +40.
elv up 100.
wait altdesc 45000
pitch +35.
elv up 100.
wait altdesc 40000
pitch +28.
elv up 100.
wait altdesc 35000
pitch +20.
elv up 100.
// Ожидание высоты 35 км и занятие угла тангажа 20 гр.
wait altdesc 30000
pitch +15.
// Ожидание высоты 30 км и занятие угла тангажа 30 гр.
set attmode on
set apmode airfoil
set afcontrol on
// Инициирование атмосферного управления КА
select Cape Canaveral
headtarget
// Выбор базы Cape Canaveral и доворот на нее
wait altdesc 25000.
// Ожидать высоту 25 км
select Cape Canaveral
set apcontrol airfoil
set afcontrol on
set alt 9600
// Установить высоту над базой Cape Canaveral 9600 м
set desc wp
// Установить рассчетную скорость снижения для занятия над точкой этой высоты
run apv
// Включения канала автопилота управления скоростью КА (может и ненадо? Ранее все управлялось!)
set speed 260
maintain speed
headtarget
wait distin 2000
// Ожидать дистанцию до базы (цели) 2 км
set alt 2200.
set desc wp
// Установить новую высоту и расчетную скорость снижения на следующий ППМ (DM003 - третий разворот)
select DM003
wait distin 1000.
set alt 1500
set desc wp
select DM004
wait distin 3000.
set alt 0.
set climb -10.
set speed 220.
select DM005
wait distin 1000.
operate gear
select RW33START
set alt 10.
set desc wp
wait distin 3000.
head 330.
wait altdesc 20.
set alt 0.
set climb -2.0
set speed 150.
wait groundcontact
elv down 20.
set speed 10.
operate wheelbrake
wait speedless 20.
elv neutral
release wheelbrake
set speed 15
set speed 0.
operate brakes
stop aps
burn main 0.
wait 3
stop engines
end