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

Proof LEM_GEOMETRY #604 (#725)

Browse Source 
Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Gintautas Švedas 2020-10-24 20:59:27 +03:00 committed by GitHub
parent 9f58155b0c
commit 0c6136893e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 27 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Luminary099/LEM_GEOMETRY.agc
View File

@ -35,9 +35,9 @@
EBANK= XSM EBANK= XSM
# THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING # THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING
# THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO # THE CONIC R,V AND THE DEVIATIONSR,V. THE STATE VECTORS ARE CONVERTED TO
# METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR # METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
# R-OTHER,V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE # R-OTHER , V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
# OTHER VEHICLES COMPUTER. # OTHER VEHICLES COMPUTER.
# #
# INPUT # INPUT
@ -102,21 +102,21 @@ SVDWN1 VLOAD VSL*
# S(2) = 180 + S(1) # S(2) = 180 + S(1)
# T(2) = 180 - T(1) # T(2) = 180 - T(1)
# #
# THE VECTOR ARRIVES IN MPAC WHERE TRG*SMNG OR *SMNB* WILL HAVE LEFT IT. # THE VECTOR ARRIVES IN MPAC WHERE TRG*SMNB OR *SMNB* WILL HAVE LEFT IT.
RRANGLES STORE 32D RRANGLES STORE 32D
DLOAD DCOMP # SINCE WE WILL FIND THE MODE 1 SHAFT DLOAD DCOMP # SINCE WE WILL FIND THE MODE 1 SHAFT
34D # ANGLE LATER, WE CAN FIND THE MODE 1 34D # ANGLE LATER, WE CAN FIND THE MODE 1
SETPD ASIN # TRUNNION BY SIMPLY TAKING THE ARCSIN OF SETPD ASIN # TRUNNION BY SIMPLY TAKING THE ARCSIN OF
0 # THE Y COMPONENT, THE ASIN GIVIN AN 0 # THE Y COMPONENT, THE ASIN GIVIN AN
PUSH BDSU # ANSWER WHOSE ABS VAL IS LESS THAN 90 DEG. PUSH BDSU # ANSWER WHOSE ABS VAL IS LESS THAN 90 DEG
LODPHALF LODPHALF
STODL 4 # MODE 2 TRUNNION TO 4. STODL 4 # MODE 2 TRUNNION TO 4.
LO6ZEROS LO6ZEROS
STOVL 34D # UNIT THE PROJECTION OF THE VECTOR STOVL 34D # UNIT THE PROJECTION OF THE VECTOR
32D # IN THE X-Z PLANE 32D # IN THE X-Z PLANE
UNIT BOVB # IF OVERFLOW, TARGET VECTOR IS ALONG Y UNIT BOVB # IF OVERFLOW,TARGET VECTOR IS ALONG Y
LUNDESCH # CALL FOR MANEUVER UNLESS ON LUNAR SURF LUNDESCH # CALL FOR MANEUVER UNLESS ON LUNAR SURF
STODL 32D # PROJECTION VECTOR. STODL 32D # PROJECTION VECTOR.
32D 32D
@ -154,7 +154,7 @@ RRANGLES STORE 32D
GOTO GOTO
S2 S2
# Page 324 # Page 324
# GIVEN RR TRUNNION AND SHAFT (T,S) IN TANGNB,+1, FIND THE ASSOCIATED # GIVEN RR TRUNNION AND SHAFT (T,S) IN TANGNB,+1,FIND THE ASSOCIATED
# LINE OF SIGHT IN NAV BASE AXES. THE HALF UNIT VECTOR, .5(SIN(S)COS(T), # LINE OF SIGHT IN NAV BASE AXES. THE HALF UNIT VECTOR, .5(SIN(S)COS(T),
# -SIN(T),COS(S)COS(T)) IS LEFT IN MPAC AND 32D. # -SIN(T),COS(S)COS(T)) IS LEFT IN MPAC AND 32D.
@ -190,7 +190,7 @@ RRNB1 PUSH COS # SHAFT ANGLE TO 2
RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21. RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
MPAC # SET MODE TO DP. (THE PRECEEDING STORE MPAC # SET MODE TO DP. (THE PRECEEDING STORE
# MAY BE DP, TP OR VECTOR.) # MAY BE DP. TP OR VECTOR.)
RTB SETPD RTB SETPD
CDULOGIC CDULOGIC
0 0
@ -203,7 +203,4 @@ RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
CDULOGIC CDULOGIC
GOTO GOTO
RRNB1 RRNB1
# Page 325 # Page 325 (empty page)
# (This page has nothing on it.)