annabunches/kOS
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Modify launch code to be smoother.

Browse Source
This commit is contained in:
Anna Rose 2021-08-11 05:04:21 -04:00
parent fcf93c4106
commit 2e7b904216
2 changed files with 14 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lib/launch_rocket.ks
View File

@ -1,15 +1,14 @@
runoncepath("lib/throttle"). runoncepath("lib/throttle").
runoncepath("lib/navigation"). runoncepath("lib/navigation").
runoncepath("lib/node").
// Calculate the vector at which to ascend. // Calculate the direction to lock during ascent.
// This is basically prograde plus some anti-rotation logic and a lower bound. function getAscentDir {
function getAscentVector { parameter leadAngle is 5.
parameter minPitch. parameter minPitch is 5.
// face prograde, but hold a solid eastern heading and don't // face just beneath prograde, but hold a solid eastern heading and don't
// rotate the ship // rotate the ship
local newHeading is lookdirup(SHIP:SRFPROGRADE:FOREVECTOR, local newHeading is lookdirup(SHIP:SRFPROGRADE:FOREVECTOR, heading(90, 0, 270):TOPVECTOR).
heading(90, 0, 270):TOPVECTOR). set newHeading to angleaxis(leadAngle, newHeading:TOPVECTOR)*newHeading.
if getPitch(newHeading:FOREVECTOR) < minPitch { if getPitch(newHeading:FOREVECTOR) < minPitch {
set newHeading to heading(90, minPitch, 270). set newHeading to heading(90, minPitch, 270).
} }
@ -26,7 +25,7 @@ function Launch {
parameter APOAPSIS_TARGET is 80000. parameter APOAPSIS_TARGET is 80000.
parameter ATMO_TWR is 1.6. parameter ATMO_TWR is 1.6.
parameter GRAVITY_TURN_START is 8000. parameter GRAVITY_TURN_START is 8000.
parameter GRAVITY_PITCH is 75. parameter LEAD_ANGLE is 5.
// parameter INITIAL_PITCH is 85. // parameter INITIAL_PITCH is 85.
parameter MINIMUM_PITCH is 5. parameter MINIMUM_PITCH is 5.
@ -51,7 +50,7 @@ function Launch {
return true. return true.
} }
// Hold throttle to maintain 1.5 TWR. // Hold throttle to maintain target TWR.
// We do *not* use a PID Loop here because we can // We do *not* use a PID Loop here because we can
// calculate the correct value discretely. // calculate the correct value discretely.
lock THROTTLE to ThrottleToTWR(ATMO_TWR). lock THROTTLE to ThrottleToTWR(ATMO_TWR).
@ -61,26 +60,10 @@ function Launch {
lock STEERING to heading(90,90,270). lock STEERING to heading(90,90,270).
stage. stage.
// wait until SHIP:ALTITUDE > 200.
// print "Vectoring away from launchpad.".
// lock STEERING to heading(90, INITIAL_PITCH, 270).
wait until SHIP:ALTITUDE > GRAVITY_TURN_START. wait until SHIP:ALTITUDE > GRAVITY_TURN_START.
print "Pitching for gravity turn.". print "Turning gravity...".
// Pitch over... lock STEERING to getAscentDir(LEAD_ANGLE, MINIMUM_PITCH).
lock STEERING to heading(90, GRAVITY_PITCH, 270).
// Wait until we have rotated to (approximately) that pitch...
wait until vectorangle(
SHIP:FACING:FOREVECTOR,
STEERINGMANAGER:TARGET:FOREVECTOR)
< 0.5.
// then wait until Prograde catches up (or passes us).
local targetPitch is GetPitch(STEERINGMANAGER:TARGET:FOREVECTOR).
wait until GetPitch(SHIP:SRFPROGRADE:FOREVECTOR) <= targetPitch.
print "Locking to prograde, letting gravity do the hard work.".
lock STEERING to getAscentVector(MINIMUM_PITCH).
wait until SHIP:ALTITUDE > 32000. // todo: if we have a pressure sensor we can use it to decide when to kick the throttle up instead, neat solution for e.g. Duna and Eve. wait until SHIP:ALTITUDE > 32000. // todo: if we have a pressure sensor we can use it to decide when to kick the throttle up instead, neat solution for e.g. Duna and Eve.
lock THROTTLE to 1.0. lock THROTTLE to 1.0.

8
prog/rocket.ks
View File

@ -80,10 +80,9 @@ MakeMenu(
List( List(
List("Target Apoapsis", "SCALAR", "80000"), List("Target Apoapsis", "SCALAR", "80000"),
List("Atmo TWR", "SCALAR", "1.8"), List("Atmo TWR", "SCALAR", "1.8"),
// List("Initial Pitch", "SCALAR", "85"),
List("Minimum Pitch", "SCALAR", "5"),
List("Gravity Turn Alt", "SCALAR", "8000"), List("Gravity Turn Alt", "SCALAR", "8000"),
List("Gravity Turn Pitch", "SCALAR", "75") List("Lead Angle", "SCALAR", "5"),
List("Minimum Pitch", "SCALAR", "5")
), ),
"Execute", "Execute",
{ {
@ -92,8 +91,7 @@ MakeMenu(
options["Target Apoapsis"]:TEXT:ToNumber(), options["Target Apoapsis"]:TEXT:ToNumber(),
options["Atmo TWR"]:TEXT:ToNumber(), options["Atmo TWR"]:TEXT:ToNumber(),
options["Gravity Turn Alt"]:TEXT:ToNumber(), options["Gravity Turn Alt"]:TEXT:ToNumber(),
options["Gravity Turn Pitch"]:TEXT:ToNumber(), options["Lead Angle"]:TEXT:ToNumber(),
// options["Initial Pitch"]:TEXT:ToNumber(),
options["Minimum Pitch"]:TEXT:ToNumber() options["Minimum Pitch"]:TEXT:ToNumber()
). ).
} }