proof(luminary): S-BAND_ANTENNA_FOR_LM (#696)

This commit is contained in:
James Harris 2020-09-02 16:21:58 +01:00 committed by GitHub
parent 05e8a67191
commit 8056927e8c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -28,24 +28,24 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 486 # Page 486
# SUBROUTINE NAME: R05 -- S-BAND ANTENNA FOR LM # SUBROUTINE NAME: R05 - S-BAND ANTENNA FOR LM
# #
# MOD0 BY T. JAMES # MOD0 BY T. JAMES
# MOD1 BY P. SHAKIR # MOD1 BY P. SHAKIR
# #
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# #
# THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND # THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND
# YAW ANTENNA GIMBAL ANGLES REQUIRED TO POINT THE LM STEERABLE ANTENNA # YAW ANTENNA GIMBAL ANGLES REQUIRED TO POINT THE LM STEERABLE ANTENNA
# TOWARD THE CENTER OF THE EARTH. THIS ROUTINE IS SELECTED BY THE ASTRO- # TOWARD THE CENTER OF THE EARTH. THIS ROUTINE IS SELECTED BY THE ASTRO-
# NAUT VIA DSKY ENTRY DURING COASTING FLIGHT OR WHEN THE LM IS ON THE MOON # NAUT VIA DSKY ENTRY DURING COASTING FLIGHT OR WHEN THE LM IS ON THE MOON
# SURFACE. THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING # SURFACE. THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING
# ON WHETHER THE LM IS ABOUT TO ENTER OR HAS ALREADY ENTERED THE MOON # ON WHETHER THE LM IS ABOUT TO ENTER OR HAS ALREADY ENTERED THE MOON
# SPHERE OF INFLUENCE, RESPECTIVELY. # SPHERE OF INFLUENCE, RESPECTIVELY
# #
# TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E # TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E
# #
# SUBROUTINES CALLED --- # SUBROUTINES CALLED-
# R02BOTH # R02BOTH
# INTPRET # INTPRET
# LOADTIME # LOADTIME
@ -56,7 +56,7 @@
# BANKCALL # BANKCALL
# B50OFF # B50OFF
# ENDOFJOB # ENDOFJOB
# BLANKRET # BLANKET
# #
# RETURNS WITH # RETURNS WITH
# PITCH ANGLE IN PITCHANG REV. B0 # PITCH ANGLE IN PITCHANG REV. B0
@ -100,13 +100,13 @@ CONV3 CALL
GOTO GOTO
CONV5 CONV5
CONV4 VLOAD CONV4 VLOAD
RATT # UE = -UNIT(RATT) EARTH SPHERE RATT # UE = -UNIT(RATT) EARTH SPHERE
CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
0D # SET PL POINTER TO 0 0D # SET PL POINTER TO 0
VCOMP CALL VCOMP CALL
CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES
MXV VSL1 # TRANSFORM REF. COORDINATE SYSTEM TO MXV VSL1 # TRANSFORM REF. COORDINATE SYSTEM TO
REFSMMAT # STABLE MEMBER B-1 X B-1 X B+1 = B-1 REFSMMAT # STABLE MEMBER B-1 X B-1 X B+1 = B-1
PUSH DLOAD # 8D PUSH DLOAD # 8D
HI6ZEROS HI6ZEROS
STORE PITCHANG STORE PITCHANG
@ -123,27 +123,27 @@ CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
DAD DMP DAD DMP
RLM RLM
1OVSQRT2 1OVSQRT2
STOVL RLM # R B-1 STOVL RLM # R B-1
RLM RLM
UNIT PDVL UNIT PDVL
# Page 488 # Page 488
RLM RLM
VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE. VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE
HIUNITY HIUNITY
BVSU BOV # CLEAR OVERFLOW INDICATOR IF ON BVSU BOV # CLEAR OVERFLOW INDICATOR IF ON
RLM RLM
COVCNV COVCNV
COVCNV UNIT BOV # EXIT ON OVERFLOW COVCNV UNIT BOV # EXIT ON OVERFLOW
SBANDEX SBANDEX
PUSH VXV # URP VECTOR B-1 PUSH VXV # URP VECTOR B-1
HIUNITZ HIUNITZ
VSL1 VCOMP # UZ X URP = -(URP X UZ) VSL1 VCOMP # UZ X URP = -(URP X UZ)
STORE RLM # X VEC B-1 STORE RLM # X VEC B-1
DOT PDVL # SGN(X.UY) UNSCALED DOT PDVL # SGN(X.UY) UNSCALED
HIUNITY HIUNITY
RLM RLM
ABVAL SIGN ABVAL SIGN
ASIN # ASIN((SGN(X.UY))ABV(X)) REV B0 ASIN # ASIN((SGN(X.UY))ABV(X)) REV B0
STOVL PITCHANG STOVL PITCHANG
URP URP
DOT BPL DOT BPL
@ -157,7 +157,7 @@ NOADJUST VLOAD VXV
UR # Z = (UR X URP) UR # Z = (UR X URP)
URP URP
VSL1 VSL1
STODL RLM # Z VEC B-1 STODL RLM # Z VEC B-1
PITCHANG PITCHANG
SIN VXSC SIN VXSC
HIUNITZ HIUNITZ
@ -189,7 +189,7 @@ SBANDEX EXIT
TC BLANKET # BLANK R3 TC BLANKET # BLANK R3
CAF PRIO4 CAF PRIO4
TC PRIOCHNG TC PRIOCHNG
TC SBANDANT +2 # YES, CONTINUE DISPLAYING ANGLES. TC SBANDANT +2 # YES, CONTINUE DISPLAYING ANGLES
V06N51 VN 0651 V06N51 VN 0651
1OVSQRT2 2DEC .7071067815 # 1/SQRT(2) 1OVSQRT2 2DEC .7071067815 # 1/SQRT(2)
@ -197,5 +197,4 @@ UR EQUALS 0D
URP EQUALS 6D URP EQUALS 6D
SBANK= LOWSUPER SBANK= LOWSUPER
# END OF LNYAIDE .001 *** # *** END OF LNYAIDE .001 ***