NCommander
commented
7 years ago Script:
//first.ks
// This program launches a ship from the KSC and flies it into orbit
//Set the ship to a known configuration
SAS off.
RCS on.
lights on.
lock throttle to 0. //Throttle is a decimal from 0.0 to 1.0
gear off.
clearscreen.
set targetApoapsis to 75000. //Target apoapsis in meters
set targetPeriapsis to 75000. //Target periapsis in meters
LIST ENGINES IN elist.
set seperation to false.
set runmode to 2. //Safety in case we start mid-flight
if ALT:RADAR < 50 { //Guess if we are waiting for take off
set runmode to 1.
}
until runmode = 0 { //Run until we end the program
if runmode = 1 { //Ship is on the launchpad
set TVAL to 1. //Throttle up to 100%
stage. //Same thing as pressing Space-bar
set runmode to 2. //Go to the next runmode
}
else if runmode = 2 { // Fly UP to start cause of solids
lock steering to heading (90,90). //Straight up.
set TVAL to 1.
if SHIP:ALTITUDE > 500 {
//Once altitude is higher than 2km, go to Gravity Turn mode
set runmode to 3.
}
} //Make sure you always close out your if statements.
else if runmode = 3 {
lock steering to heading (90, 80). // Enter a gravity turn once we're above 500m
if SHIP:ALTITUDE > 10000 {
// Switch over to full g-turn mode at 10k
set runmode to 4.
}
}
else if runmode = 4 { //Gravity turn
set targetPitch to max( 5, 90 * (1 - ALT:RADAR / 50000)).
//Pitch over gradually until levelling out to 5 degrees at 50km
lock steering to heading ( 90, targetPitch). //Heading 90' (East), then target pitch
set TVAL to 1.
if SHIP:APOAPSIS > targetApoapsis {
set runmode to 5.
}
}
else if runmode = 5 { //Coast to Ap
lock steering to heading ( 90, 3). //Stay pointing 3 degrees above horizon
set TVAL to 0. //Engines off.
if (SHIP:ALTITUDE > 70000) and (ETA:APOAPSIS > 60) and (VERTICALSPEED > 0) {
if WARP = 0 { // If we are not time warping
wait 1. //Wait to make sure the ship is stable
SET WARP TO 3. //Be really careful about warping
}
}.
else if ETA:APOAPSIS < 60 {
SET WARP to 0.
set runmode to 6.
}
}
else if runmode = 6 { //Burn to raise Periapsis
if ETA:APOAPSIS < 5 or VERTICALSPEED < 0 { //If we're less 5 seconds from Ap or loosing altitude
set TVAL to 1.
}
if (SHIP:PERIAPSIS > targetPeriapsis) or (SHIP:PERIAPSIS > targetApoapsis * 0.95) {
//If the periapsis is high enough or getting close to the apoapsis
set TVAL to 0.
set runmode to 10.
}
}
else if runmode = 10 { //Final touches
set TVAL to 0. //Shutdown engine.
panels on. //Deploy solar panels
lights on.
unlock steering.
print "SHIP SHOULD NOW BE IN SPACE!".
set runmode to 0.
}
if (seperation) {
list engines in elist.
set seperation to false.
}
for e in elist {
if (e:FLAMEOUT and STAGE:READY) {
STAGE.
set seperation to true.
}
}
set finalTVAL to TVAL.
lock throttle to finalTVAL. //Write our planned throttle to the physical throttle
//Print data to screen.
print "RUNMODE: " + runmode + " " at (5,4).
print "ALTITUDE: " + round(SHIP:ALTITUDE) + " " at (5,5).
print "APOAPSIS: " + round(SHIP:APOAPSIS) + " " at (5,6).
print "PERIAPSIS: " + round(SHIP:PERIAPSIS) + " " at (5,7).
print "ETA to AP: " + round(ETA:APOAPSIS) + " " at (5,8).
}
hvacengi
When using cooked steering, control surfaces don't appear to be influenced at all, I've been using the following launch script and craft file to put my craft into orbit, and the control surfaces don't appear to be moving at all. If I fly the craft manually, they move just fine. I'm somewhat of a newbie to coding with kOS, but the documentation suggests that steeringmanager should manipulate control surfaces if they're enabled for Yaw/Pitch/Roll.