SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-13 16:24:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Proofed Page 803-812

Browse source
This commit is contained in:
sidemt 2021-02-28 17:44:47 +09:00
parent 1277126ffd
commit 595d56ecfe
1 changed files with 59 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
View file

@ -277,12 +277,17 @@ STARTP64 TC NEWMODEX
# TTFINCR COMPUTATIONS ARE AS FOLLOWS --
# Page 803
# TTF/8 UPDATED FOR TIME SINCE LAST PASS:
#
# TTF/8 = TTF/8 + (TPIP - TPIPOLD)/8
#
# LANDING SITE VECTOR UPDATED FOR LUNAR ROTATION:
# ____ ____ ____ __
#
# _ _ _ _
# LAND = /LAND/ UNIT(LAND - LAND(TPIP - TPIPOLD) * WM)
#
# SLANT RANGE TO LANDING SITE, FOR DISPLAY:
# ____ _
#
# _ _
# RANGEDSP = ABVAL(LAND - R)
TTFINCR TC INTPRET
@ -360,11 +365,11 @@ REDESIG CA FLAGWRD6 # IS REDFLAG SET?
TC INTPRET
VLOAD VSU
LAND
R # ____ _
R # _ _
RTB PUSH # PUSH DOWN UNIT (LAND - R)
NORMUNIT
VXV VSL1
YNBPIP # ___ ____ _
YNBPIP # _ _ _
VXSC PDDL # PUSH DOWN - ELINCR(YNB * UNIT(LAND - R))
ELINCR
AZINCR
@ -411,23 +416,29 @@ REDES1 DLOAD DSU
# COMPUTE STATE IN GUIDANCE COORDINATES
# *********************************************************************
#
# RGVGCALC COMPUTATIONS ARE AS FOLLOWS:--
# RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-
#
# VELOCITY RELATIVE TO THE SURFACE:
# _______ _ _ __
#
# _ _ _ _
# ANGTERM = V + R * WM
#
# STATE IN GUIDANCE COORDINATES:
# ___ * _ ____
#
# _ * _ _
# RGU = CG (R - LAND)
# ___ * _ __ _
#
# _ * _ _ _
# VGU = CG (V - WM * R)
# Page 806 actually starts one line earlier but that would separate the markers from their variables
#
# HORIZONTAL VELOCITY FOR DISPLAY
# HORIZONTAL VELOCITY FOR DISPLAY:
#
# VHORIZ = 8 ABVAL (0, VG , VG )
# 2 1
#
# DEPRESSION ANGLE FOR DISPLAY:
# _ ____ ______
# _ _ _
# LOOKANGL = ARCSIN(UNIT(R - LAND).XMBPIP)
CALCRGVG TC INTPRET # IN IGNALG, COMPUTE V FROM INTEGRATION
@ -453,7 +464,7 @@ RGVGCALC TC INTPRET # ENTER HERE TO RECOMPUTE RG AND VG
ZEROVECS # 2 1
ABVAL SL3
STOVL VHORIZ # VHORIZ FOR DISPLAY DURING P65.
R # _ ____
R # _ _
VSU PUSH # PUSH DOWN R - LAND
LAND
MXV VSL1
@ -470,7 +481,7 @@ RGVGCALC TC INTPRET # ENTER HERE TO RECOMPUTE RG AND VG
TS PUSHLOC
# Page 807
CA MPAC # COMPUTE LOOKANGLE ITSELF
CA MPAC # COMPUTE LOOKANGL ITSELF
DOUBLE
TC BANKCALL
CADR SPARCSIN -1
@ -530,23 +541,25 @@ TTF/8CL TC INTPRETX
# MAIN GUIDANCE EQUATION
# *********************************************************************************
#
# AS PUBLISHED --
# ___ __ ___ __
# ___ ___ 6(VDG + VG) 12(RDG - RG)
# AS PUBLISHED:-
# _ _ _ _
# _ _ 6(VDG + VG) 12(RDG - RG)
# ACG = ADG + ----------- + ------------
# TTF (TTF)(TTF)
# AS HERE PROGRAMMED --
# ___ __
# 3 (1/4(RDG - RG) ___ __)
#
# AS HERE PROGRAMMED:-
#
# _ _
# 3 (1/4(RDG - RG) _ _ )
# - (------------- + VDG + VG)
# ___ 4 ( TTF/8 ) ___
# _ 4 ( TTF/8 ) _
# ACG = ---------------------------- + ADG
# TTF/8
QUADGUID CS TTF/8
AD LEADTIME # LEADTIME IS A NEGATIVE NUMBER
AD POSMAX # SAFEGUARD THE COMPUTATIONS THAT FOLLOW
TS L # BY FORCING -TTF*LEADTIME > OR = ZERO
TS L # BY FORCING -TTF+LEADTIME > OR = ZERO
CS L
AD L
ZL
@ -597,7 +610,7 @@ QUADGUID CS TTF/8
30D
ADG,1
VAD
AFCCALC1 VXM VSL1 # VERGUID COMES HERE
AFCCALC1 VXM VSL1 # VERTGUID COMES HERE
CG
PDVL V/SC
GDT/2
@ -713,11 +726,14 @@ EXSPOT1 EXTEND
# ***********************************************************************
#
# 1. EXGSUB IS THE RETURN WHEN GUIDSUB IS CALLED BY THE IGNITION ALGORITHM.
#
# 2. EXBRAK IN THE EXIT USED DURING THE BRAKING PHASE. IN THIS CASE UNIT(R) IS THE WINDOW POINTING VECTOR.
#
# 3. EXNORM IS THE EXIT USED AT OTHER TIMES DURING THE BURN.
#
# (EXOVFLOW IS A SUBROUTINE OF EXBRAK AND EXNORM CALLED WHEN OVERFLOW OCCURRED ANYWHERE IN GUIDANCE.)
EXGSUB TC INTPRET # COMPUTE TRIM VELOCITY CORRECTION TERM.
EXGSUB TC INTPRET # COMPUTE TRIM VELOCITY CORRECTION TERM
# Page 812
VLOAD RTB
UNFC/2