View difference between Paste ID: LujPdiGG and EWmzC25s

 clearscreen.
 set pi to 3.1415926535897932384626433832795028841971693993751058209749445923.
 set mu to 3.986*(10^14).
 ag1 off.
 
 function launchHeading {
   set azimuth to arcsin(cos(target:orbit:inclination)/cos(ship:latitude)).
   return azimuth.
 }
 function orbitHeading {
   set azimuth to arcsin(cos(ship:orbit:inclination)/cos(ship:latitude)).
   return azimuth.
 }
 function pitchAngle {
   set ang to 90-(vang(ship:velocity:surface,ship:up:vector)).
   return ang.
 } //for ascent
 function relativeInclination {
   set targpos to target:position-ship:body:position.
   set htarg to vcrs(targpos,target:velocity:orbit).
   set hship to -vcrs(ship:body:position,ship:velocity:orbit).
   set relinc to vang(htarg,hship).
   return relinc.
 }
 function distancefromPlane {
   set targpos to target:position-ship:body:position.
   set htarg to vcrs(targpos,target:velocity:orbit).
   set hship to vcrs(ship:body:position,ship:velocity:orbit).
   set relinc to vang(htarg,hship).
   set descendingNode to vcrs(htarg,hship).
   set ang to (pi/180)*vang(descendingNode,ship:body:position).
   set hypoteneuse to ang*ship:body:position:mag.
   set dist to sin(relinc)*hypoteneuse.
   return dist.
 }
 function pitchUp { //for space
   set r to ship:body:position:mag.
   set v to ship:velocity:orbit:mag.
   set ag to (mu/(r^2))-((v^2)/r)+alevel.
   set hypoteneuseAcc to ship:maxthrust/ship:mass.
   set theta to arcsin(ag/hypoteneuseAcc).
   return theta.
 }
 
 set gturnAngle to 3.
 set gturnVelocity to 42.
 set doglegAcc to 2.
 set apheight to 220000.
 set periap to apheight-10000.
 set kpPitch to 1.
 set kiPitch to 0.1.
 
 lock steering to heading(launchHeading(),90)+r(0,0,180).
 print "Liftoff!".
 lock throttle to 1.
 stage.
 set t0 to time:seconds.
 
 wait until ship:verticalspeed > gturnVelocity.
 
 lock steering to heading(launchHeading(),90-gturnAngle)+r(0,0,180).
 print "T+"+round(time:seconds-t0)+" Seconds. Beginning Roll Program".
 
 wait until vang(ship:velocity:surface,ship:up:vector)>gturnAngle.
 print "T+"+round(time:seconds-t0)+" Seconds. Roll Program Complete".
 
 lock steering to heading(launchHeading(),pitchAngle())+r(0,0,180).
 
 //staging
 wait until (time:seconds-t0)>154.
 lock throttle to 0.
 print "T+"+round(time:seconds-t0)+" Seconds. MECO".
 wait until (time:seconds-t0)>158.
 print "T+"+round(time:seconds-t0)+" Seconds. First Stage Separation. RCS on".
 
 stage.
 rcs on.
 lock throttle to 1.
 wait until (time:seconds-t0)>161.
 print "T+"+round(time:seconds-t0)+" Seconds. Second Stage Ignition".
 stage.
 
 
 set newPitch to pitchAngle().
 until ship:apoapsis > apheight {
   lock steering to heading(orbitHeading(),newPitch)+r(0,0,180).
   wait 0.1.
 }
 
 set a to 0.
 until a > doglegAcc {
   lock steering to heading(orbitHeading(),0)+r(0,0,180).
   set v to (sin(relativeInclination())*ship:velocity:orbit:mag).
   set x to distancefromPlane().
   set a to (1/(2*x))*(v^2).
   wait 0.1.
 }
 
 
 print "T+"+round(time:seconds-t0)+" Seconds. Beginning Dogleg Maneuver".
 set upAngle to 0.
 set alevel to 0.
 until alevel > 1  and ship:verticalspeed < 0 {
   set relativeInc to relativeInclination().
   if relativeInc > 0.05 {
     set v to (sin(relativeInc)*ship:velocity:orbit:mag).
     set x to distancefromPlane().
     set a to ((1/(2*x))*(v^2)).
     set thrustacc to (ship:maxthrust/ship:mass)*cos(upAngle).
     set offsetAngle to arcsin(a/thrustacc).
   }. else {
     set offsetAngle to 0.
   }.
   set vlevel to ship:verticalspeed.
   set hdiff to ship:altitude-periap.
   set alevel to (1/(2*hdiff))*(vlevel^2).
 
 
 
   lock steering to heading(orbitHeading()-offsetAngle,upAngle)+r(0,0,180).
 }
 print "T+"+round(time:seconds-t0)+" Seconds. Leveling off at 210 km".
 until ship:verticalspeed > -0.5 {
   set relativeInc to relativeInclination().
   if relativeInc > 0.05 {
     set v to (sin(relativeInc)*ship:velocity:orbit:mag).
     set x to distancefromPlane().
     set a to ((1/(2*x))*(v^2))+1.
     set thrustacc to (ship:maxthrust/ship:mass)*cos(upAngle).
     set offsetAngle to arcsin(a/thrustacc).
   }. else {
     set offsetAngle to 0.
   }.
 
   set vlevel to ship:verticalspeed.
   set hdiff to ship:altitude-periap.
   set alevel to (1/(2*hdiff))*(vlevel^2).
 
   set upAngle to pitchUp().
   lock steering to heading(orbitHeading()-offsetAngle,upAngle)+r(0,0,180).
 }
 
 set alevel to 0.
 set vsInt to 0.
 until ship:periapsis > 0 {
   set relativeInc to relativeInclination().
   if relativeInc > 0.05{
     set v to (sin(relativeInc)*ship:velocity:orbit:mag).
     set x to distancefromPlane().
     set a to ((1/(2*x))*(v^2))+1.
     set thrustacc to (ship:maxthrust/ship:mass)*cos(upAngle).
     set offsetAngle to arcsin(a/thrustacc)..
   }. else {
     set offsetAngle to 0.
   }.
 
   set vs1 to ship:verticalspeed.
   set t1 to time:seconds.
   wait 0.1.
   set vs2 to ship:verticalspeed.
   set t2 to time:seconds.
   set dt to t2-t1.
 
   set vsInt to vsInt+(dt*(vs2+vs1)/2).
 
   set anglediff to (-kpPitch*(ship:verticalspeed))+(-kiPitch*vsInt).
   set upAngle to pitchUp()+anglediff.
   lock steering to heading(orbitHeading()-offsetAngle,upAngle)+r(0,0,180).
 }
 
 lock steering to prograde +r(0,0,180).
 ag2 on.
 wait until ship:apoapsis > 390000.
 lock throttle to 0.
 print "T+"+round(time:seconds-t0)+" Seconds. SECO".
 wait 10.
 stage.
 print "T+"+round(time:seconds-t0)+" Seconds. Spacecraft Separation".
 print "Remember to engage persistent rotation".
 set ship:control:fore to 1.
 lock steering to prograde +r(0,0,180).
 
 wait until ship:apoapsis>400000.
 
 set ship:control:neutralize to true.
 run rendezvous.