Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Leandro Matheus
GitHub
parent
7c7680fcc4
commit
6f7d132239
@ -25,32 +25,31 @@
|
||||
# 16:27 JULY 14, 1969
|
||||
|
||||
# Page 1140
|
||||
# ***** RP-TO-R SUBROUTINE *****
|
||||
# SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
|
||||
# ..... RP-TO-R SUBROUTINE .....
|
||||
# SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM,EITHER
|
||||
# EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
|
||||
#
|
||||
# R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
|
||||
# R=MT(T)*(RP+LPXRP) MT= M MATRIX TRANSPOSE
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 RP-TO-R
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# EARTHMX, MOONMX, EARTHL
|
||||
# EARTHMX,MOONMX,EARTHL
|
||||
#
|
||||
# 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
|
||||
#
|
||||
# ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
|
||||
#
|
||||
# INPUT
|
||||
# MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
|
||||
# 0-5D = RP VECTOR
|
||||
# 6-7D = TIME
|
||||
# MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
|
||||
# 0-5D= RP VECTOR
|
||||
# 6-7D= TIME
|
||||
#
|
||||
# OUTPUT
|
||||
# MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
|
||||
# MPAC= R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
|
||||
|
||||
SETLOC PLANTIN1
|
||||
BANK
|
||||
@ -84,32 +83,31 @@ RPTORA CALL # EARTH COMPUTATIONS
|
||||
COUNT* $$/LUROT
|
||||
|
||||
# Page 1142
|
||||
# ***** R-TO-RP SUBROUTINE *****
|
||||
# ..... R-TO-RP SUBROUTINE .....
|
||||
# SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
|
||||
# (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
|
||||
#
|
||||
# RP = M(T) * (R - L X R)
|
||||
# RP=M(T)*(R-LXR)
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 R-TO-RP
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# EARTHMX, MOONMX, EARTHL
|
||||
# EARTHMX,MOONMX,EARTHL
|
||||
#
|
||||
# INPUT
|
||||
# MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
|
||||
# 0-5D = R VECTOR
|
||||
# 6-7D = TIME
|
||||
# MPAC= 0 FOR EARTH, NON-ZERO FOR MOON
|
||||
# 0-5D= R VECTOR
|
||||
# 6-7D= TIME
|
||||
#
|
||||
# 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
|
||||
#
|
||||
# ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
|
||||
#
|
||||
# OUTPUT
|
||||
# MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
|
||||
# MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
|
||||
|
||||
R-TO-RP STQ BHIZ
|
||||
RPREXIT
|
||||
@ -119,7 +117,7 @@ R-TO-RP STQ BHIZ
|
||||
VLOAD VXM
|
||||
504LM # LP=LM
|
||||
MMATRIX
|
||||
VSL1 # L = MT(T)*LP RADIANS B0
|
||||
VSL1 # L=MT(T)*LP RADIANS B0
|
||||
RTORPB VXV BVSU
|
||||
504RPR
|
||||
504RPR
|
||||
@ -137,7 +135,7 @@ RTORPA CALL # EARTH COMPUTATIONS
|
||||
RTORPB
|
||||
|
||||
# Page 1143
|
||||
# ***** MOONMX SUBROUTINE *****
|
||||
# ..... MOONMX SUBROUTINE .....
|
||||
# SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
@ -148,18 +146,17 @@ RTORPA CALL # EARTH COMPUTATIONS
|
||||
# NEWANGLE
|
||||
#
|
||||
# INPUT
|
||||
# 6-7D = TIME
|
||||
#
|
||||
# 6-7D= TIME
|
||||
# ITEMS AVAILABLE FROM LAUNCH DATA
|
||||
# BSUBO, BDOT
|
||||
# TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
|
||||
# COSI = COS(I) B-1
|
||||
# SINI = SIN(I) B-1
|
||||
# BSUBO,BDOT
|
||||
# TIMSUBO,NODIO,NODDOT,FSUBO,FDOT
|
||||
# COSI= COS(I) B-1
|
||||
# SINI= SIN(I) B-1
|
||||
# I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
|
||||
# PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
|
||||
#
|
||||
# OUTPUT
|
||||
# MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
|
||||
# MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
|
||||
|
||||
MOONMX STQ SETPD
|
||||
EARTHMXX
|
||||
@ -167,7 +164,7 @@ MOONMX STQ SETPD
|
||||
AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
|
||||
5
|
||||
DLOAD PDDL # PD 10D 8-9D=BSUBO
|
||||
BSUBO # 10-11D=BDOT
|
||||
BSUBO # 10-11D= BDOT
|
||||
BDOT
|
||||
PUSH CALL # PD 12D
|
||||
NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
|
||||
@ -178,7 +175,7 @@ MOONMX STQ SETPD
|
||||
FSUBO # 8-9D=FSUBO
|
||||
PDDL PUSH # PD 10D THEN 12D 10-11D=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
|
||||
NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
|
||||
STODL AVECTR +2 # SAVE F TEMP
|
||||
@ -256,12 +253,11 @@ MOONMXA STODL AVECTR +2
|
||||
VSL1 VCOMP
|
||||
STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
|
||||
EARTHMXX
|
||||
|
||||
# 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
|
||||
# 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
|
||||
# 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
|
||||
10D,1 # IS SCALED REVS/CSEC B-0
|
||||
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
|
||||
|
||||
# Page 1146
|
||||
# ***** EARTHMX SUBROUTINE *****
|
||||
# ..... EARTHMX SUBROUTINE .....
|
||||
# SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
@ -339,7 +335,7 @@ EARTHMX STQ SETPD # SET 8-9D=AZO
|
||||
EARTHMXX
|
||||
|
||||
# Page 1147
|
||||
# ***** EARTHL SUBROUTINE *****
|
||||
# ..... EARTHL SUBROUTINE .....
|
||||
# SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
@ -371,10 +367,9 @@ EARTHL DLOAD DCOMP
|
||||
|
||||
# Page 1148
|
||||
# CONSTANTS AND ERASABLE ASSIGNMENTS
|
||||
|
||||
1B1 = DP1/2 # 1 SCALED B-1
|
||||
RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
|
||||
EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
|
||||
EARTHMXX = S2 # EARTHMX,MOONMX SUBR. EXITS
|
||||
504RPR = 0D # 6 REGS R OR RP VECTOR
|
||||
SINNODI = 8D # 2 SIN(NODI)
|
||||
DVECTR = 8D # 6 D VECTOR MOON
|
||||
@ -387,5 +382,4 @@ BVECTR = 26D # 6 B VECTOR (MOON)
|
||||
MMATRIX = 20D # 18 M MATRIX
|
||||
COB = 32D # 2 COS(B) B-1
|
||||
SOB = 34D # 2 SIN(B) B-1
|
||||
504F = 6D # 2 F(MOON)
|
||||
|
||||
504F = 6D # 2 F (MOON)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user