NodeEXCRO.ks

//for node execution
//Zh Vulkan 2022.8.11
set STEERINGMANAGER:MAXSTOPPINGTIME to 6.
set STEERINGMANAGER:PITCHPID:KD to 2.
set STEERINGMANAGER:YAWPID:KD to 2.
set STEERINGMANAGER:PITCHTS to 12.
set STEERINGMANAGER:YAWTS to 12.
set spooltime to 0.
set rcsisp to 127.9.//HTP Thruster

set numsamples to 0.
set g0 to constant():G0.
set dv to NEXTNODE:DELTAV:MAG.
set e  to CONSTANT():E.
clearscreen.
print "Steering".  
SAS off.
lock steering to NEXTNODE.
set m0 to 0.
print "Waiting for node".  
set rt to NEXTNODE:ETA.    // remaining time 

//cal spooltime
LIST ENGINES in MyEngines.
for engine in MyEngines {
	if engine:ignition  {
			set spooltime to 0.414213 * ln(MAX(1.1,sqrt(engine:DRYMASS*engine:MAXTHRUST^2))).
	}
}
print "Engine Spool Up Time: " + spooltime at (0,7).

//warp to node
until rt <= spooltime {
    set rt to NEXTNODE:ETA.    // remaining time
	set maxwarp to 5.
	if rt < 50000   { set maxwarp to 4. }
	if rt < 5000   { set maxwarp to 3. }
	if rt < 500    { set maxwarp to 2. }
	if rt < 100     { set maxwarp to 1. }
	if rt < 30    { set maxwarp to 0. }
	if rt < 6 + spooltime {
	   if m0 = 0 {
			SET SHIP:CONTROL:FORE TO 1.
			set m0 to SHIP:MASS.
	   }
    }	   

    set WARP to maxwarp.
    print "    Remaining time:  " + rt at (0,5).  
    print "       Warp factor:  " + WARP at (0,6).  
}

//start engine
SET SHIP:CONTROL:FORE TO 0.
set SHIP:CONTROL:PILOTMAINTHROTTLE to 1.
set ve to rcsisp * g0.
set mf to SHIP:MASS.
set rcsdv to ve * LN(m0/mf).
set m0 to SHIP:MASS.


set MyISP to 0.

Until MyISP <> 0 {
	LIST ENGINES in MyEngines.
	for engine in MyEngines {
		if engine:typename() = "Engine" {
			if engine:ISP > 0 {
				set MyISP to engine:ISP.
				set MyEngine to engine.
			}
		}
	}
   print "Waiting for Engine Start." at (0,8).
}

set bdv to rcsdv.
clearscreen.
print "RCS Dv:  " + rcsdv at (0,6).

//cal dv expended
Until bdv  >= dv {
   set numsamples to numsamples + 1.
   set MyISP to ((MyISP * (numsamples - 1)) + MyEngine:ISP) / numsamples.
   set ve to MyISP * g0.
   set mf to SHIP:MASS.
   set bdv to rcsdv +(ve * LN(m0/mf)).
   print "Target Dv:  " + dv at (0,7).
   print "Burned Dv:  " + bdv at (0,8).
   print "Engine ISP: " + MyISP at (0,9).
}

set SHIP:CONTROL:PILOTMAINTHROTTLE to 0.
print "Done." at (0,10).
unlock all.