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

Various improvements, oops.

Browse Source
This commit is contained in:
Anna Rose 2021-07-21 05:24:46 -04:00
parent e2653db827
commit c7438fcfe7
4 changed files with 125 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
execnode.ks
View File

@ -15,18 +15,25 @@ wait until NEXTNODE:ETA <= (t/2).
// todo: pid loop here or nah? overshoot would be tricky to deal with... // todo: pid loop here or nah? overshoot would be tricky to deal with...
print "Executing burn.". print "Executing burn.".
local dvMin is NEXTNODE:DELTAV:MAG.
local throt is 1.0. local throt is 1.0.
lock THROTTLE to throt. lock THROTTLE to throt.
local dvLast is NEXTNODE:DELTAV:MAG.
// debug
print "dVMin = " + dvMin.
print "dV = " + NEXTNODE:DELTAV:MAG.
// Execute the burn, throttling down by half every time we're // Execute the burn, throttling down by half every time we're
// consuming more than 25% of our dV in one update. // consuming more than 25% of our dV in one update.
until NEXTNODE:DELTAV:MAG <= 0.25 { until NEXTNODE:DELTAV:MAG <= 0.25 or dVMin < NEXTNODE:DELTAV:MAG {
local dvRem is NEXTNODE:DELTAV:MAG. // debug
if dvRem < dvLast * 0.75 { print "dVMin = " + dvMin.
set throt to throt / 2. print "dV = " + NEXTNODE:DELTAV:MAG.
if NEXTNODE:DELTAV:MAG < dVMin {
set dvMin to NEXTNODE:DELTAV:MAG.
} }
set dvLast to dvRem.
wait 0.001. wait 0.001.
} }
@ -34,3 +41,8 @@ unlock THROTTLE.
unlock STEERING. unlock STEERING.
SAS on. SAS on.
print "Node execution complete.". print "Node execution complete.".
// debug
print "Final dVMin = " + dvMin.
print "Final dV = " + NEXTNODE:DELTAV:MAG.

12
launch.ks
View File

@ -45,11 +45,13 @@ wait until vectorangle(
STEERINGMANAGER:TARGET:FOREVECTOR) STEERINGMANAGER:TARGET:FOREVECTOR)
< 0.5. < 0.5.
// then wait until Prograde catches up. // then wait until Prograde catches up (or passes us).
wait until vectorangle( local targetPitch is GetPitch(STEERINGMANAGER:TARGET:FOREVECTOR).
SHIP:SRFPROGRADE:FOREVECTOR, wait until GetPitch(SHIP:SRFPROGRADE:FOREVECTOR) <= targetPitch.
STEERINGMANAGER:TARGET:FOREVECTOR) // wait until vectorangle(
< 0.5. // SHIP:SRFPROGRADE:FOREVECTOR,
// STEERINGMANAGER:TARGET:FOREVECTOR)
// < 0.5.
print "Locking to prograde, letting gravity do the hard work.". print "Locking to prograde, letting gravity do the hard work.".
lock STEERING to GetAscentVector(MINIMUM_PITCH). lock STEERING to GetAscentVector(MINIMUM_PITCH).

36
lib/throttle.ks
View File

@ -1,7 +1,8 @@
// Functions for calculating thrust values. // Functions for calculating thrust values.
@lazyglobal off. @lazyglobal off.
local G is 9.81. // point gravity for TWR calculations.
local G is 0.
lock G to SHIP:BODY:MU / ((SHIP:BODY:RADIUS+SHIP:ALTITUDE)^2). lock G to SHIP:BODY:MU / ((SHIP:BODY:RADIUS+SHIP:ALTITUDE)^2).
// Returns the throttle value you should use to achieve the // Returns the throttle value you should use to achieve the
@ -22,25 +23,21 @@ function TWR {
// Calculate the time required to burn a given dV at a given altitude. // Calculate the time required to burn a given dV at a given altitude.
// Must be called while in the same SOI as the burn itself. // Must be called while in the same SOI as the burn itself.
// Assumes a perfectly spherical Kerbal in a vacuum.
function BurnTime { function BurnTime {
parameter dV, a, m is SHIP:MASS, s is STAGE:NUMBER. parameter dV, m is SHIP:MASS, s is STAGE:NUMBER.
local Gb is SHIP:BODY:MU / ((SHIP:BODY:RADIUS+a)^2).
local f is stageThrust(). // Engine Thrust (kg * m/s²) local f is stageThrust(). // Engine Thrust (kg * m/s²)
local Isp is stageISP(). // Engine ISP (s) local Isp is stageISP(). // Engine ISP (s)
// debug local dVs is SHIP:StageDeltaV(s):VACUUM.
print "Calculating burn time.". if dV > dVs {
print "dV = " + dV. // TODO: not 100% this is needed vs using DeltaV:DURATION.
print "f = " + f. // Docs suggest DeltaV:DURATION is not entirely reliable, however.
print "m = " + m. // For now we're logging both values for comparison.
print "e = " + e. local t is burnTimeCalc(dVs, m, Isp, f).
print "Isp = " + Isp. print "Computed stage burn time = " + t.
print "Gb = " + Gb. print "KSC-estimated stage burn time = " + SHIP:StageDeltaV(s):DURATION.
// end debug
if dV > SHIP:STAGEDELTAV(s) {
local t is burnTimeCalc(SHIP:STAGEDELTAV(s), m, Gb, Isp, f).
local parts is list(). local parts is list().
for part in parts { for part in parts {
@ -49,15 +46,15 @@ function BurnTime {
} }
} }
return t + BurnTime(dV - SHIP:STAGEDELTAV(s), a, m, s - 1). return t + BurnTime(dV - SHIP:STAGEDELTAV(s):VACUUM, m, s - 1).
} }
return burnTimeCalc(dV, m, Gb, Isp, f). return burnTimeCalc(dV, m, Isp, f).
} }
// Convenience function to wrap the actual calculation for burn time. // Convenience function to wrap the actual calculation for burn time.
function burnTimeCalc { function burnTimeCalc {
parameter dV, m, Gb, Isp, f. parameter dV, m, Isp, f.
if f = 0 { if f = 0 {
print "WARNING: Tried to calculate burn time with a thrust of 0. Returning 0. Your calculations are probably wrong.". print "WARNING: Tried to calculate burn time with a thrust of 0. Returning 0. Your calculations are probably wrong.".
@ -69,7 +66,8 @@ function burnTimeCalc {
// which is suggested at https://www.reddit.com/r/Kos/comments/lev9pw/getting_burntime_from_next_stage/gmig0hl/?context=8&depth=9 // which is suggested at https://www.reddit.com/r/Kos/comments/lev9pw/getting_burntime_from_next_stage/gmig0hl/?context=8&depth=9
// are they equivalent? Is one better than the other? This one doesn't require // are they equivalent? Is one better than the other? This one doesn't require
// knowing final mass, which is nice. // knowing final mass, which is nice.
return Gb * m * Isp * (1 - CONSTANT():E^(-dV/(Gb*Isp))) / f. local g0 is CONSTANT:G0.
return g0 * m * Isp * (1 - CONSTANT():E^(-dV/(g0*Isp))) / f.
} }
// Calculate the ISP for a given stage. // Calculate the ISP for a given stage.

135
ui/rocket.ks
View File

@ -1,4 +1,13 @@
runoncepath("/lib/navigation").
function launchButtonPressed { function launchButtonPressed {
// adjust torque settings here...
local oldEpsilon is STEERINGMANAGER:TORQUEEPSILONMAX.
set STEERINGMANAGER:TORQUEEPSILONMAX to maxEpsilon:TEXT:ToNumber().
local oldStopTime is STEERINGMANAGER:MAXSTOPPINGTIME.
set STEERINGMANAGER:MAXSTOPPINGTIME to maxStopTime:TEXT:ToNumber().
run "launch"( run "launch"(
targetApo:TEXT:ToNumber(), targetApo:TEXT:ToNumber(),
gravTurnStart:TEXT:ToNumber(), gravTurnStart:TEXT:ToNumber(),
@ -6,67 +15,99 @@ function launchButtonPressed {
initialPitch:TEXT:ToNumber(), initialPitch:TEXT:ToNumber(),
minimumPitch:TEXT:ToNumber() minimumPitch:TEXT:ToNumber()
). ).
set STEERINGMANAGER:TORQUEEPSILONMAX to oldEpsilon.
set STEERINGMANAGER:MAXSTOPPINGTIME to oldStopTime..
} }
function nodeButtonPressed { function executeNode {
run "execnode". run "execnode".
} }
local termOn is false. function showLaunchMenu {
function terminalButtonPressed { stk:ShowOnly(launchMenu).
if termOn {
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
set termOn to false.
} else {
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
set termOn to true.
}
} }
// Main UI. // Main UI.
local interface is gui(200). local interface is gui(250, 300).
set interface:X to 200. set interface:X to 200.
set interface:Y to 800. set interface:Y to 700.
// Launch button // Main menu elements in here.
local hBox is interface:AddHBox(). local box is interface:AddVBox().
hBox:AddLabel("Initial Pitch").
local initialPitch is hBox:AddTextField("85").
local hBox is interface:AddHBox(). local btn is box:AddButton("TERM").
hBox:AddLabel("Minimum Pitch"). set btn:TOGGLE to true.
local minimumPitch is hBox:AddTextField("5"). set btn:ONTOGGLE to {
parameter activate.
local hBox is interface:AddHBox(). if activate {
hBox:AddLabel("Gravity Turn @"). CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Open Terminal").
local gravTurnStart is hBox:AddTextField("8000"). } else {
CORE:PART:GETMODULE("kOSProcessor"):DOEVENT("Close Terminal").
local hBox is interface:AddHBox().
hBox:AddLabel("Gravity Pitch").
local gravPitch is hBox:AddTextField("75").
local hBox is interface:AddHBox().
hBox:AddLabel("Target Apoapsis").
local targetApo is hBox:AddTextField("80000").
local launchButton is interface:AddButton("Launch").
set launchButton:onClick to launchButtonPressed@.
local nodeButton is interface:AddButton("Execute Node").
set nodeButton:onClick to nodeButtonPressed@.
local termButton is interface:AddButton("Terminal").
set termButton:onClick to terminalButtonPressed@.
// debug
function circButtonPressed {
runpath("/lib/navigation").
add CreateCircularizationNode().
} }
local cButton is interface:AddButton("Circularize"). }.
set cButton:onClick to circButtonPressed@.
// end debug set btn to box:AddButton("LAUNCH").
set btn:onClick to showLaunchMenu@.
set btn to box:AddButton("CIRC").
set btn:onClick to { add CreateCircularizationNode(). }.
set btn to box:AddButton("EXECNODE").
set btn:onClick to executeNode@.
local stk is interface:AddStack().
// Launch menu
local launchMenu is stk:AddVLayout().
set btn to launchMenu:AddButton("Execute").
set btn:onClick to launchButtonPressed@.
local launchConfig is box:AddScrollBox().
// set launchConfig:STYLE:WIDTH to 300.
// set launchConfig:STYLE:HEIGHT to 800.
set sbox to launchConfig:AddHBox().
sbox:AddLabel("Target Apoapsis").
local targetApo is sbox:AddTextField("80000").
set sbox to launchConfig:AddHBox().
sbox:AddLabel("Atmo TWR").
local targetTWR is sbox:AddTextField("1.6").
set sbox to launchConfig:AddHBox().
sbox:AddLabel("Initial Pitch").
local initialPitch is sBox:AddTextField("85").
set sbox to launchConfig:AddHBox().
sbox:AddLabel("Minimum Pitch").
local minimumPitch is sbox:AddTextField("5").
set sbox to launchConfig:AddHBox().
sbox:AddLabel("Gravity Turn Alt").
local gravTurnStart is sbox:AddTextField("8000").
set sbox to launchConfig:AddHBox().
sbox:AddLabel("Gravity Turn Pitch").
local gravPitch is sbox:AddTextField("75").
launchConfig:AddSpacing(5).
set sbox to launchConfig:AddHBox().
sbox:AddLabel("Torque Epsilon Max").
local maxEpsilon is sbox:AddTextField("0.001").
set sbox to launchConfig:AddHBox().
sbox:AddLabel("Max Stopping Time").
local maxStopTime is sbox:AddTextField("2.0").
// End Launch Menu
interface:show(). interface:show().
wait until false. wait until false.