kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof PLANETARY_INERTIAL_ORIENTATION #623 (#717)

Browse Source 
Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Leandro Matheus 2020-10-14 15:49:40 -03:00 committed by GitHub
parent 7c7680fcc4
commit 6f7d132239
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 116 additions and 122 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Luminary099/PLANETARY_INERTIAL_ORIENTATION.agc
View File

@ -25,7 +25,7 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 1140 # Page 1140
# ***** RP-TO-R SUBROUTINE ***** # ..... RP-TO-R SUBROUTINE .....
# SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER # SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
# EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM) # EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
# #
@ -41,7 +41,6 @@
# ITEMS AVAILABLE FROM LAUNCH DATA # ITEMS AVAILABLE FROM LAUNCH DATA
# 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED # 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
# IN THE MOON-FIXED COORD. SYSTEM RADIANS B0 # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
#
# ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.) # ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
# #
# INPUT # INPUT
@ -84,7 +83,7 @@ RPTORA CALL # EARTH COMPUTATIONS
COUNT* $$/LUROT COUNT* $$/LUROT
# Page 1142 # Page 1142
# ***** R-TO-RP SUBROUTINE ***** # ..... R-TO-RP SUBROUTINE .....
# SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP # SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
# (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED # (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
# #
@ -105,7 +104,6 @@ RPTORA CALL # EARTH COMPUTATIONS
# ITEMS AVAILABLE FROM LAUNCH DATA # ITEMS AVAILABLE FROM LAUNCH DATA
# 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED # 504LM= THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL,EXPRESSED
# IN THE MOON-FIXED COORD. SYSTEM RADIANS B0 # IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
#
# ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.) # ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
# #
# OUTPUT # OUTPUT
@ -137,7 +135,7 @@ RTORPA CALL # EARTH COMPUTATIONS
RTORPB RTORPB
# Page 1143 # Page 1143
# ***** MOONMX SUBROUTINE ***** # ..... MOONMX SUBROUTINE .....
# SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
# #
# CALLING SEQUENCE # CALLING SEQUENCE
@ -149,7 +147,6 @@ RTORPA CALL # EARTH COMPUTATIONS
# #
# INPUT # INPUT
# 6-7D= TIME # 6-7D= TIME
#
# ITEMS AVAILABLE FROM LAUNCH DATA # ITEMS AVAILABLE FROM LAUNCH DATA
# BSUBO,BDOT # BSUBO,BDOT
# TIMSUBO,NODIO,NODDOT,FSUBO,FDOT # TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
@ -178,7 +175,7 @@ MOONMX STQ SETPD
FSUBO # 8-9D=FSUBO FSUBO # 8-9D=FSUBO
PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
FDOT FDOT
AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE. AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE
4 4
NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0 NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
STODL AVECTR +2 # SAVE F TEMP STODL AVECTR +2 # SAVE F TEMP
@ -256,12 +253,11 @@ MOONMXA STODL AVECTR +2
VSL1 VCOMP VSL1 VCOMP
STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1 STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
EARTHMXX EARTHMXX
# COMPUTE X=X0+(XDOT)(T+T0) # COMPUTE X=X0+(XDOT)(T+T0)
# 8-9D= X0 (REVS B-0),PUSHLOC SET AT 12D # 8-9D= X0 (REVS B-0),PUSHLOC SET AT 12D
# 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT # 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
# AND B+27 FOR FDOT # AND B+27 FOR FDOT
# X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NDDOT AND # X1=DIFFERENCE IN 23 AND SCALING OF XDOT,=0 FOR WEARTH,5 FOR NODDOT AND
# BDOT AND 4 FOR FDOT # BDOT AND 4 FOR FDOT
# 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.) # 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
@ -284,11 +280,11 @@ NEWANGLE DLOAD SR # ENTER PD 12D
SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
10D,1 # IS SCALED REVS/CSEC B-0 10D,1 # IS SCALED REVS/CSEC B-0
BOV # TURN OFF OVERFLOW IF SET BY SHIFT BOV # TURN OFF OVERFLOW IF SET BY SHIFT
+1 # INSTRUCTION BEFORE EXITING. +1 # INSTRUCTION BEFORE EXITING
RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0 RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
# Page 1146 # Page 1146
# ***** EARTHMX SUBROUTINE ***** # ..... EARTHMX SUBROUTINE .....
# SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH # SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
# #
# CALLING SEQUENCE # CALLING SEQUENCE
@ -339,7 +335,7 @@ EARTHMX STQ SETPD # SET 8-9D=AZO
EARTHMXX EARTHMXX
# Page 1147 # Page 1147
# ***** EARTHL SUBROUTINE ***** # ..... EARTHL SUBROUTINE .....
# SUBROUTINE TO COMPUTE L VECTOR FOR EARTH # SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
# #
# CALLING SEQUENCE # CALLING SEQUENCE
@ -371,7 +367,6 @@ EARTHL DLOAD DCOMP
# Page 1148 # Page 1148
# CONSTANTS AND ERASABLE ASSIGNMENTS # CONSTANTS AND ERASABLE ASSIGNMENTS
1B1 = DP1/2 # 1 SCALED B-1 1B1 = DP1/2 # 1 SCALED B-1
RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
EARTHMXX = S2 # EARTHMX,MOONMX SUBR. EXITS EARTHMXX = S2 # EARTHMX,MOONMX SUBR. EXITS
@ -388,4 +383,3 @@ MMATRIX = 20D # 18 M MATRIX
COB = 32D # 2 COS(B) B-1 COB = 32D # 2 COS(B) B-1
SOB = 34D # 2 SIN(B) B-1 SOB = 34D # 2 SIN(B) B-1
504F = 6D # 2 F (MOON) 504F = 6D # 2 F (MOON)