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

Proof ORBITAL_INTEGRATION #229 (#389)

Browse Source 
* Proof FIXED_FIXED_CONSTANT_POOL (#207)

* wip(p1338/1354: DONE): Proof ORBITAL_INTEGRATION #229

* wip(p1354/1354: DONE): Proof ORBITAL_INTEGRATION #229
This commit is contained in:
Glenn Dwiyatcita 2019-05-11 20:46:35 +02:00 committed by James Harris
parent c1421dfa88
commit 80d781c20e
1 changed files with 28 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
Comanche055/ORBITAL_INTEGRATION.agc
View File

@ -325,7 +325,6 @@ INT-ABRT EXIT
# THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE # THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
# POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE # POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
# DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1. # DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
OBLATE LXA,2 DLOAD OBLATE LXA,2 DLOAD
PBODY PBODY
ALPHAM ALPHAM
@ -349,7 +348,7 @@ OBLATE LXA,2 DLOAD
VAD VXM VAD VXM
ZUNIT ZUNIT
MMATRIX MMATRIX
UNIT # PROBABLY UNNECESSARY. UNIT # POSSIBLY UNNECESSARY
COMTERM STORE UZ COMTERM STORE UZ
DLOAD DMPR DLOAD DMPR
COSPHI/2 COSPHI/2
@ -390,9 +389,9 @@ COMTERM STORE UZ
DMP* SR1 DMP* SR1
J4REQ/J3,2 J4REQ/J3,2
DDV DAD DDV DAD
ALPHAM ALPHAM # -3
DMPR* SR3 DMPR* SR3
2J3RE/J2,2 2J3RE/J2,2 # 3 4
DDV DAD DDV DAD
ALPHAM ALPHAM
VXSC VSL1 VXSC VSL1
@ -423,7 +422,7 @@ COMTERM STORE UZ
QUALITY1 QUALITY1
QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61 QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61
# AS VECTOR. # AS VECTOR.
PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D. PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D
# Page 1343 # Page 1343
5/8 # 5 SCALED B3 5/8 # 5 SCALED B3
PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
@ -450,14 +449,14 @@ QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61
5/8 # 5 B3 ANSWER B5 5/8 # 5 B3 ANSWER B5
SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10 SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10
# INSTEAD OF 5 FOR COEFFICIENT) # INSTEAD OF 5 FOR COEFFICIENT)
PDDL NORM # BACK INTO 12D FOR Z COMPONENT PDDL NORM # BACK INTO 12D FOR Z COMPONENT.
ALPHAM # SCALED B27 FOR MOON ALPHAM # SCALED B27 FOR MOON
X2 X2
PUSH SLOAD # STORE IN 14D, DESTROYING URPV PUSH SLOAD # STORE IN 14D, DESTROYING URPV
# X COMPONENT # X COMPONENT
E32C31RM E32C31RM
DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
# out of 8D B5 GIVES B58 # OUT OF 8D B5 GIVES B58
VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
# VECTOR IN 2D # VECTOR IN 2D
0 -3,2 0 -3,2
@ -471,7 +470,7 @@ QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61
# ALONE. # ALONE.
PBODY PBODY
RP-TO-R RP-TO-R
VAD BOV # OVERFLOW INDICATOR RESET IN *RP-TO-R* VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R"
FV FV
GOBAQUE GOBAQUE
STORE FV STORE FV
@ -617,6 +616,7 @@ ORIGCHNG STQ CALL
# THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION # THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
# ROUTINES TO ESTABLISH A NEW CONIC. # ROUTINES TO ESTABLISH A NEW CONIC.
RECTIFY LXA,2 VLOAD RECTIFY LXA,2 VLOAD
PBODY PBODY
TDELTAV TDELTAV
@ -640,9 +640,8 @@ MINIRECT STORE VRECT
RVQ RVQ
# Page 1348 # Page 1348
# THE THREE DIFEQ ROUTINES -- DIFEQ+0, DIFEQ+12, DIFEQ+24 -- ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE # THE THREE DIFEQ ROUTINES - DIFEQ+0, DIFEQ+12, DIFEQ+24 - ARE ENTEREDTO PROCESS THE CONTRIBUTIONS AT THE
# BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD. # BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
DIFEQ+0 VLOAD VSR3 DIFEQ+0 VLOAD VSR3
FV FV
STCALL PHIV STCALL PHIV
@ -782,7 +781,7 @@ DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
FBR3 FBR3
WMATEND CLEAR CLEAR WMATEND CLEAR CLEAR
DIM0FLAG # DON'T INTEGRATE W THIS TIME DIM0FLAG # DONT INTEGRATE W THIS TIME
ORBWFLAG # INVALIDATE W ORBWFLAG # INVALIDATE W
CLEAR CLEAR
RENDWFLG RENDWFLG
@ -798,8 +797,7 @@ WMATEND CLEAR CLEAR
# Page 1352 # Page 1352
# ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION # ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
# VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVETHE DIFFERENTIAL EQUATIONS. THE PROGRAM # VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVETHE DIFFERENTIAL EQUATIONS. THE PROGRAM
# USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLE'S POSITION AND VELOCITY. # USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLES POSITION AND VELOCITY.
DOW.. LXA,2 DLOAD* DOW.. LXA,2 DLOAD*
PBODY PBODY
MUEARTH,2 MUEARTH,2
@ -944,6 +942,3 @@ URPV EQUALS 14D
COSPHI/2 EQUALS URPV +4 COSPHI/2 EQUALS URPV +4
UZ EQUALS 20D UZ EQUALS 20D
TVEC EQUALS 26D TVEC EQUALS 26D