tweaks to test setup + adjusted safty margin
This commit is contained in:
@@ -12,14 +12,13 @@ function TestSetup{
|
||||
return.
|
||||
}
|
||||
print "Setting up test".
|
||||
lock throttle to 100.
|
||||
lock steering to heading(90, 89).
|
||||
lock throttle to 0.5.
|
||||
lock steering to heading(90, 89, 0).
|
||||
gear off.
|
||||
wait until apoapsis > tgt.
|
||||
lock steering to up.
|
||||
lock throttle to 0.
|
||||
unlock throttle.
|
||||
unlock steering.
|
||||
}
|
||||
|
||||
function Landing{
|
||||
@@ -71,6 +70,8 @@ function Landing{
|
||||
|
||||
function WaitFalling{
|
||||
parameter targetSpeed is 100.
|
||||
sas off.
|
||||
wait until altitude < 10000.
|
||||
print "Coasting to apoapsis.".
|
||||
rcs on.
|
||||
lock steering to up.
|
||||
@@ -89,7 +90,7 @@ function Descent {
|
||||
local lock vertSpeed to verticalSpeed.
|
||||
local lock localGravity to GetLocalGravity(altitude).
|
||||
local lock drag to GetDragDir(localGravity, ship:up:vector).
|
||||
local lock burnDist to CalculateSuicideBurnAltitude(vertSpeed, localGravity, 80, drag).
|
||||
local lock burnDist to CalculateSuicideBurnAltitude(vertSpeed, localGravity, 100, drag).
|
||||
|
||||
wait until burnDist >= curAlt.
|
||||
print "Starting Burn".
|
||||
@@ -108,7 +109,7 @@ function Descent {
|
||||
|
||||
print "Launch to start.".
|
||||
WaitForEngineStart().
|
||||
TestSetup(5000).
|
||||
TestSetup(10000).
|
||||
WaitFalling(100).
|
||||
Descent().
|
||||
Landing().
|
||||
|
||||
Reference in New Issue
Block a user