From 8056927e8cbe368eda052166f4683e9b9a454c65 Mon Sep 17 00:00:00 2001 From: James Harris Date: Wed, 2 Sep 2020 16:21:58 +0100 Subject: [PATCH] proof(luminary): S-BAND_ANTENNA_FOR_LM (#696) --- Luminary099/S-BAND_ANTENNA_FOR_LM.agc | 37 +++++++++++++-------------- 1 file changed, 18 insertions(+), 19 deletions(-) diff --git a/Luminary099/S-BAND_ANTENNA_FOR_LM.agc b/Luminary099/S-BAND_ANTENNA_FOR_LM.agc index 0b52329..842ba80 100644 --- a/Luminary099/S-BAND_ANTENNA_FOR_LM.agc +++ b/Luminary099/S-BAND_ANTENNA_FOR_LM.agc @@ -28,24 +28,24 @@ # 16:27 JULY 14, 1969 # Page 486 -# SUBROUTINE NAME: R05 -- S-BAND ANTENNA FOR LM +# SUBROUTINE NAME: R05 - S-BAND ANTENNA FOR LM # # MOD0 BY T. JAMES # MOD1 BY P. SHAKIR # # 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 -# 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 -# 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 -# SPHERE OF INFLUENCE, RESPECTIVELY. +# SPHERE OF INFLUENCE, RESPECTIVELY # # TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E # -# SUBROUTINES CALLED --- +# SUBROUTINES CALLED- # R02BOTH # INTPRET # LOADTIME @@ -56,7 +56,7 @@ # BANKCALL # B50OFF # ENDOFJOB -# BLANKRET +# BLANKET # # RETURNS WITH # PITCH ANGLE IN PITCHANG REV. B0 @@ -100,13 +100,13 @@ CONV3 CALL GOTO CONV5 CONV4 VLOAD - RATT # UE = -UNIT(RATT) EARTH SPHERE -CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE + RATT # UE = -UNIT(RATT) EARTH SPHERE +CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE 0D # SET PL POINTER TO 0 VCOMP CALL CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES 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 HI6ZEROS STORE PITCHANG @@ -123,27 +123,27 @@ CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE DAD DMP RLM 1OVSQRT2 - STOVL RLM # R B-1 + STOVL RLM # R B-1 RLM UNIT PDVL # Page 488 RLM - VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE. + VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE HIUNITY BVSU BOV # CLEAR OVERFLOW INDICATOR IF ON RLM COVCNV COVCNV UNIT BOV # EXIT ON OVERFLOW SBANDEX - PUSH VXV # URP VECTOR B-1 + PUSH VXV # URP VECTOR B-1 HIUNITZ 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 HIUNITY RLM ABVAL SIGN - ASIN # ASIN((SGN(X.UY))ABV(X)) REV B0 + ASIN # ASIN((SGN(X.UY))ABV(X)) REV B0 STOVL PITCHANG URP DOT BPL @@ -157,7 +157,7 @@ NOADJUST VLOAD VXV UR # Z = (UR X URP) URP VSL1 - STODL RLM # Z VEC B-1 + STODL RLM # Z VEC B-1 PITCHANG SIN VXSC HIUNITZ @@ -189,7 +189,7 @@ SBANDEX EXIT TC BLANKET # BLANK R3 CAF PRIO4 TC PRIOCHNG - TC SBANDANT +2 # YES, CONTINUE DISPLAYING ANGLES. + TC SBANDANT +2 # YES, CONTINUE DISPLAYING ANGLES V06N51 VN 0651 1OVSQRT2 2DEC .7071067815 # 1/SQRT(2) @@ -197,5 +197,4 @@ UR EQUALS 0D URP EQUALS 6D SBANK= LOWSUPER -# END OF LNYAIDE .001 *** - +# *** END OF LNYAIDE .001 ***