beeg sana

radenLaunch.ks

@@ -9,39 +9,54 @@ clearScreen.
 BRAKES on.
 print "Waiting for engine ignition".
 WaitForEngineStart().
+if not (defined rotateSpeed){
+	set rotateSpeed to 140.
+}
 
 print "Preparing to launch".
 from { local c is 5.} until c = 0 step {set c to c - 1.} do {
 	print c.
 	wait 1.
 }
+set runwayPitch to (90 - vectorangle(UP:FOREVECTOR, FACING:FOREVECTOR)).
 clearScreen.
 print "Launching!".
 // stage.
 lock throttle to 1.
-lock steering to heading(90, 1).
+lock steering to heading(90, runwayPitch).
 brakes off.
 sas off.
 
 print "Phase: Takeoff".
-
-wait until groundspeed > 120.
+print "Waiting for rotate speed: " + rotateSpeed.
+wait until groundspeed > rotateSpeed.
 
 print "Phase: Rotate".
-lock steering to heading(90, 4).
+lock steering to heading(90, runwayPitch + 4).
 wait until altitude > 80.
 print "Gear up".
 gear off.
+wait until altitude > 150.
+
+set accelPitch to runwayPitch + 4.
+local accelPitchLoop is PIDLoop(1.0, 0.06, 0.3, runwayPitch, 15).
+set accelPitchLoop:setpoint to 4.
 
 print "Phase: Athmospheric Acceleration".
-lock steering to heading(90, 3, 0).
-wait until groundspeed > athmoAccelTarget.
+lock steering to heading(90, accelPitch, 0).
+until groundspeed > athmoAccelTarget {
+	set accelPitch to accelPitchLoop:update(time:seconds, verticalSpeed).
+	wait 0.001.
+}
 
 print "Phase: Athmospheric Climb".
-lock tgtPitch to Map(groundSpeed, athmoAccelTarget, 1600, 3, 15).
+lock tgtPitch to Map(groundSpeed, athmoAccelTarget, 1600, 5, 15).
 lock steering to heading(90, tgtPitch, 0).
+until altitude > 20000 {
+	print tgtPitch.
+}
 
-wait until altitude > 25000.
+wait until altitude > 20000.
 
 print "Phase: Mode Switch".
 ag1 on. //Switch engine mode