Lua Script for Orbit Stabilization

-- Lua script for chapter 2 of Go Play in Space

--

-- Author: David Murley

-- Date: 7/01/2019

-- Version: 1.1

--

--

term.out('Script invoked')

-- Get access to the Delta Gliders GL-01 and GL-02. With the interface handles

-- obtained, access to various controls and flight data are acquired.

hGL1=vessel.get_interface('GL-01') hGL2=vessel.get_interface('GL-02')

-- Wait until vessels are docked before continuing with script

term.out ('Waiting until vessels are docked before') term.out (' executing remainder of script') continue = true hDckPort = hGL1:get_dockhandle(0) continue=true while continue do hDckStatus=hGL1:get_dockstatus(hDckPort)

 if hDckStatus ~= nil then
   continue = false
 else
   proc.wait_simdt(5)
 end

end

-- Kill Rotation

term.out('Kill Rotation') hGL1:set_navmode(NAVMODE.KILLROT) proc.wait_simdt(10)

-- Undock

term.out('Undock') hGL1:undock(ALLDOCKS)

-- Set RCS mode on GL-01 to Translation

term.out('Set RCS mode to translate.') hGL1:set_rcsmode(RCSMODE.LIN)

-- Thrust away from GL-02. The resulting distance from GL-02 is about 35 meters.

term.out('Separation of GL-01 and GL-02 to +/-35 meters') -- oapi.set_tacc(10) thrstGrpHdl1=hGL1:get_thrustergrouphandle(THGROUP.ATT_BACK) hGL1:set_thrustergrouplevel(THGROUP.ATT_BACK,.1) proc.wait_simdt(11.237) hGL1:set_thrustergrouplevel(THGROUP.ATT_BACK,0) proc.wait_simdt(52.777) thrstGrpHdl2=hGL1:get_thrustergrouphandle(THGROUP.ATT_FORWARD) hGL1:set_thrustergrouplevel(THGROUP.ATT_FORWARD,.1) proc.wait_simdt(18.733) hGL1:set_thrustergrouplevel(THGROUP.ATT_FORWARD,0) -- oapi.set_tacc(1) term.out('Separation completed.')

-- Set the prograde autopilot for both vessels to on.

term.out('Set prograde autopilot for both vessels.') hGL1:set_navmode(NAVMODE.PROGRADE) hGL2:set_navmode(NAVMODE.PROGRADE) proc.wait_simdt(25)

-- The following 14 lines set up the annotations that are used to display -- time to apoapsis for both vessels

hApT1Label = oapi.create_annotation() hApT1Label:set_pos(0.7,0.7,1,1) hApT1Label:set_colour({r=1, g=0.7, b=0.3}) hApT1Label:set_text ('ApT (GL-01): ')

hApT1 = oapi.create_annotation() hApT1:set_pos(0.8,0.7,1,1) hApT1:set_colour({r=1, g=0.7, b=0.3})

hApT2Label = oapi.create_annotation() hApT2Label:set_pos(0.7,0.75,1,1) hApT2Label:set_colour({r=1, g=0.7, b=0.3}) hApT2Label:set_text ('ApT (GL-02): ')

hApT2 = oapi.create_annotation() hApT2:set_pos(0.8,0.75,1,1) hApT2:set_colour({r=1, g=0.7, b=0.3})

-- Wait until +/- 20 seconds before apoapsis, then slow time acceleration to 1x. -- Ignition of main engines on both vessels occurs around +/- 10 seconds before -- apoapsis. Time acceleration during the waiting period is set to 100x to -- reduce waiting time for those who are easily bored.

term.out ('Wait until +/- 10 seconds from aoapis. Then fire') term.out (' main engines to stabilize orbit') oapi.set_tacc(100) continue = true while continue do

 el,op = hGL1:get_elementsex()
 TimeToApoapsis= op.ApT
 hApT1:set_text(TimeToApoapsis)
 el,op=hGL2:get_elementsex()
 TimeToAposis=op.ApT
 hApT2:set_text(TimeToApoapsis)
 if TimeToApoapsis < 20 then
    continue=false
 end
 proc.wait_simdt(1)

end oapi.set_tacc(1)

-- Track time to apoapsis from time=+/-20 sec in 1x time.

continue=true while continue do

 el,op = hGL1:get_elementsex()
 TimeToApoapsis1 =op.ApT
 hApT1:set_text(TimeToApoapsis1)
 el,op = hGL2:get_elementsex()
 TimeToApoapsis2=op.ApT
 hApT2:set_text(TimeToApoapsis2)
 if TimeToApoapsis1 <= 10 then
   continue=false
   oapi.del_annotation(hApT1)
   oapi.del_annotation(hApT1Label)
   oapi.del_annotation(hApT2)
   oapi.del_annotation(hApT2Label)
 else
   proc.wait_simdt(1)
 end

end

-- Set up annotations to show orbit eccentricities

hEcc1Label = oapi.create_annotation() hEcc1Label:set_pos(0.7,0.7,1,1) hEcc1Label:set_colour({r=1, g=0.7, b=0.3}) hEcc1Label:set_text ('Ecc (GL-01): ')

hEcc1 = oapi.create_annotation() hEcc1:set_pos(0.8,0.7,1,1) hEcc1:set_colour({r=1, g=0.7, b=0.3})

hEcc2Label = oapi.create_annotation() hEcc2Label:set_pos(0.7,0.75,1,1) hEcc2Label:set_colour({r=1, g=0.7, b=0.3}) hEcc2Label:set_text ('Ecc (GL-02): ')

hEcc2 = oapi.create_annotation() hEcc2:set_pos(0.8,0.75,1,1) hEcc2:set_colour({r=1, g=0.7, b=0.3})

-- Stabilize orbits

term.out('Start Stabilization of Orbits') hGL1:set_thrustergrouplevel(THGROUP.MAIN, 1) hGL2:set_thrustergrouplevel(THGROUP.MAIN, 1) continue1=true continue2 = true while continue1 or continue2 do

 el=hGL1:get_elements()
 e1 = el.e
 hEcc1:set_text(e1)
 if e1 <= .005 then
   hGL1:set_thrustergrouplevel (THGROUP.MAIN, 0)
   continue1 = false
 end 
 el = hGL2:get_elements()
 e2 = el.e
 hEcc2:set_text(e2)
 if e2 <= .005 then
   hGL2:set_thrustergrouplevel (THGROUP.MAIN, 0)
   continue2 = false
 end
 proc.wait_simdt(1)

end term.out ('Orbits stabilized.') term.out () term.out ()

-- Wait a few seconds and then delete eccentricity annotations

proc.wait_simdt(10) oapi.del_annotation(hEcc1) oapi.del_annotation(hEcc1Label) oapi.del_annotation(hEcc2) oapi.del_annotation(hEcc2Label)

term.out ('End Script')