* Proof FIXED_FIXED_CONSTANT_POOL (#207) * wip(p1245/1251): Proof PLANETARY_INERTIAL_ORIENTATION #243 * wip(p1251/1251: DONE): Proof PLANETARY_INERTIAL_ORIENTATION #243
This commit is contained in:
parent
ef28aacc4f
commit
496453a615
@ -29,30 +29,30 @@
|
|||||||
|
|
||||||
# Page 1243
|
# Page 1243
|
||||||
# PLANETARY INERTIAL ORIENTATION
|
# PLANETARY INERTIAL ORIENTATION
|
||||||
#
|
|
||||||
# ***** 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 BASIC REF. SYSTEM)
|
# EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN BASIC REF. SYSTEM)
|
||||||
|
|
||||||
# R=MT(T)*(RP+LPXRP) MT= M MATRIX TRANSPOSE
|
# R=MT(T)*(RP+LPXRP) MT= M MATRIX TRANSPOSE
|
||||||
#
|
|
||||||
# CALLING SEQUENCE
|
# CALLING SEQUENCE
|
||||||
# L CALL
|
# L CALL
|
||||||
# L+1 RP-TO-R
|
# L+1 RP-TO-R
|
||||||
#
|
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
# EARTHMX,MOONMX,EARTHL
|
# EARTHMX,MOONMX,EARTHL
|
||||||
#
|
|
||||||
# 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
|
||||||
# MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
|
# MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
|
||||||
# 0-5D= RP VECTOR
|
# 0-5D= RP VECTOR
|
||||||
# 6-7D= TIME
|
# 6-7D= TIME
|
||||||
#
|
|
||||||
# OUTPUT
|
# 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
|
||||||
|
|
||||||
@ -85,29 +85,29 @@ RPTORA CALL # EARTH COMPUTATIONS
|
|||||||
RPTORB
|
RPTORB
|
||||||
|
|
||||||
# Page 1245
|
# Page 1245
|
||||||
# ***** 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
|
||||||
|
|
||||||
# RP = M(T) * (R - L X R)
|
# RP = M(T) * (R - L X R)
|
||||||
#
|
|
||||||
# CALLING SEQUENCE
|
# CALLING SEQUENCE
|
||||||
# L CALL
|
# L CALL
|
||||||
# L+1 R-TO-RP
|
# L+1 R-TO-RP
|
||||||
#
|
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
# EARTHMX,MOONMX,EARTHL
|
# EARTHMX,MOONMX,EARTHL
|
||||||
#
|
|
||||||
# INPUT
|
# INPUT
|
||||||
# MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
|
# MPAC= 0 FOR EARTH,NON-ZERO FOR MOON
|
||||||
# 0-5D= R VECTOR
|
# 0-5D= R VECTOR
|
||||||
# 6-7D= TIME
|
# 6-7D= TIME
|
||||||
#
|
|
||||||
# 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
|
||||||
# MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
|
# MPAC=RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
|
||||||
|
|
||||||
@ -137,19 +137,18 @@ RTORPA CALL # EARTH COMPUTATIONS
|
|||||||
RTORPB
|
RTORPB
|
||||||
|
|
||||||
# Page 1246
|
# Page 1246
|
||||||
# ***** 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
|
||||||
# L CALL
|
# L CALL
|
||||||
# L+1 MOONMX
|
# L+1 MOONMX
|
||||||
#
|
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
# NEWANGLE
|
# NEWANGLE
|
||||||
#
|
|
||||||
# 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
|
||||||
@ -157,7 +156,7 @@ RTORPA CALL # EARTH COMPUTATIONS
|
|||||||
# SINI= SIN(I) B-1
|
# SINI= SIN(I) B-1
|
||||||
# I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
|
# I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
|
||||||
# PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
|
# PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
|
||||||
#
|
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
# MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
|
# MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
|
||||||
|
|
||||||
@ -178,13 +177,13 @@ 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
|
||||||
NODIO # 8-9D=NODIO
|
NODIO # 8-9D=NODIO
|
||||||
PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
|
PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
|
||||||
NODDOT # MPAC=5
|
NODDOT # MPAC=T
|
||||||
AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
|
AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
|
||||||
5
|
5
|
||||||
NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
|
NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
|
||||||
@ -248,7 +247,6 @@ MOONMX STQ SETPD
|
|||||||
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
|
||||||
@ -276,25 +274,25 @@ 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 1249
|
# Page 1249
|
||||||
# ***** 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
|
||||||
# L CALL
|
# L CALL
|
||||||
# L+1 EARTHMX
|
# L+1 EARTHMX
|
||||||
#
|
|
||||||
# SUBROUTINE USED
|
# SUBROUTINE USED
|
||||||
# NEWANGLE
|
# NEWANGLE
|
||||||
#
|
|
||||||
# INPUT
|
# INPUT
|
||||||
# INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
|
# INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
|
||||||
# TEPHEM CSEC B-42
|
# TEPHEM CSEC B-42
|
||||||
# 6-7D= TIME CSEC B-28
|
# 6-7D= TIME CSEC B-28
|
||||||
#
|
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
# MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
|
# MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
|
||||||
|
|
||||||
@ -326,16 +324,16 @@ EARTHMX STQ SETPD # SET 8-9D=AZO
|
|||||||
EARTHMXX
|
EARTHMXX
|
||||||
|
|
||||||
# Page 1250
|
# Page 1250
|
||||||
# ***** EARTHL SUBROUTINE *****
|
# ..... EARTHL SUBROUTINE .....
|
||||||
# SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
|
# SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
|
||||||
#
|
|
||||||
# CALLING SEQUENCE
|
# CALLING SEQUENCE
|
||||||
# L CALL
|
# L CALL
|
||||||
# L+1 EARTHL
|
# L+1 EARTHL
|
||||||
#
|
|
||||||
# INPUT
|
# INPUT
|
||||||
# AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
|
# AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
|
||||||
#
|
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
# -AX
|
# -AX
|
||||||
# MPAC= -AY RADIANS B-0
|
# MPAC= -AY RADIANS B-0
|
||||||
@ -353,11 +351,10 @@ EARTHL DLOAD DCOMP
|
|||||||
|
|
||||||
# Page 1251
|
# Page 1251
|
||||||
# CONSTANTS AND ERASABLE ASSIGNMENTS
|
# CONSTANTS AND ERASABLE ASSIGNMENTS
|
||||||
|
|
||||||
1B1 = DP1/2 # 1 SCALED B-1
|
1B1 = DP1/2 # 1 SCALED B-1
|
||||||
COSI 2DEC .99964173 B-1 # COS(5521.5 SEC) B-1
|
COSI 2DEC .99964173 B-1 # COS(5521.5 SEC) B-1
|
||||||
|
|
||||||
SINI 2DEC .02676579 B-1 # SIN(5521.T SEC) B-1
|
SINI 2DEC .02676579 B-1 # SIN(5521.5 SEC) 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
|
||||||
@ -387,4 +384,3 @@ FSUBO 2DEC .829090536 # REVS B-0 = 5.20932947829 RAD
|
|||||||
BSUBO 2DEC .0651201393 # REVS B=0 = 0.40916190299 RAD
|
BSUBO 2DEC .0651201393 # REVS B=0 = 0.40916190299 RAD
|
||||||
|
|
||||||
WEARTH 2DEC .973561595 # REVS/CSEC B+23= 7.29211494 E-5 RAD/SEC
|
WEARTH 2DEC .973561595 # REVS/CSEC B+23= 7.29211494 E-5 RAD/SEC
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user