proof(luminary): S-BAND_ANTENNA_FOR_LM (#696)
This commit is contained in:
parent
05e8a67191
commit
8056927e8c
@ -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 ***
|
||||
|
Loading…
Reference in New Issue
Block a user