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

Proof LATITUDE_LONGITUDE_SUBROUTINES #223 (#382)

Browse Source 
* Proof FIXED_FIXED_CONSTANT_POOL (#207)

* wip(p1236/1242): Proof LATITUDE_LONGITUDE_SUBROUTINES #223

* wip(p1242/1242: DONE): Proof LATITUDE_LONGITUDE_SUBROUTINES #223

* wip(p1242/1242: polishing): Proof LATITUDE_LONGITUDE_SUBROUTINES #223

* Update Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc

Co-Authored-By: dwiyatci <dwiyatci@mail.com>

* Update Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc

Co-Authored-By: dwiyatci <dwiyatci@mail.com>

* Update Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc

Co-Authored-By: dwiyatci <dwiyatci@mail.com>
This commit is contained in:
Glenn Dwiyatcita 2019-05-02 16:11:42 +02:00 committed by James Harris
parent 2599c17241
commit 77155ed107
1 changed files with 72 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc
View File

@ -31,20 +31,21 @@
# SUBROUTINE TO CONVERT RAD VECTOR AT GIVEN TIME TO LAT,LONG AND ALT # SUBROUTINE TO CONVERT RAD VECTOR AT GIVEN TIME TO LAT,LONG AND ALT
# #
# CALLING SEQUENCE # CALLING SEQUENCE
#
# L-1 CALL # L-1 CALL
# L LAT-LONG # L LAT-LONG
#
# SUBROUTINES USED # SUBROUTINES USED
# R-TO-RP, ARCTAN, SETGAMMA, SETRE
# #
# R-TO-RP,ARCTAN,SETGAMMA,SETRE
# ERASABLE INIT. REQ. # ERASABLE INIT. REQ.
#
# AXO,-AYO,AZO,TEPHEM (SET AT LAUNCH TIME) # AXO,-AYO,AZO,TEPHEM (SET AT LAUNCH TIME)
# ALPHAV = POSITION VECTOR METERS B-29 # ALPHAV = POSITION VECTOR METERS B-29
# MPAC-- TIME (CSECS B-28) # MPAC-- TIME (CSECS B-28)
# ERADFLAG =1, TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS # ERADFLAG =1, TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
# LUNAFLAG=0 FOR EARTH,1 FOR MOON # LUNAFLAG=0 FOR EARTH,1 FOR MOON
#
# OUTPUT # OUTPUT
#
# LATITUDE IN LAT (REVS. B-0) # LATITUDE IN LAT (REVS. B-0)
# LONGITUDE IN LONG (REVS. B-0) # LONGITUDE IN LONG (REVS. B-0)
# ALTITUDE IN ALT METERS B-29 # ALTITUDE IN ALT METERS B-29
@ -72,7 +73,7 @@ CALLRTRP CALL
UNIT # UNIT RP B-1 UNIT # UNIT RP B-1
STCALL ALPHAV # U2= 1/2 SINL FOR SETRE SUBR BELOW STCALL ALPHAV # U2= 1/2 SINL FOR SETRE SUBR BELOW
SETGAMMA # SET GAMMA=B2/A2 FOR EARTH,=1 FOR MOON SETGAMMA # SET GAMMA=B2/A2 FOR EARTH,=1 FOR MOON
CALL # SCALED B-1. CALL # SCALED B-1
SETRE # CALC RE METERS B-29 SETRE # CALC RE METERS B-29
DLOAD DSQ DLOAD DSQ
ALPHAV ALPHAV
@ -100,15 +101,14 @@ CALLRTRP CALL
INCORPEX INCORPEX
# Page 1238 # Page 1238
# SUBROUTINE TO CONVERT LAT,LONG.ALT AT GIVEN TIME TO RADIUS VECTOR # SUBROUTINE TO CONVERT LAT,LONG.ALT AT GIVEN TIME TO RADIUS VECTOR
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L-1 CALL # L-1 CALL
# L LALOTORV # L LALOTORV
#
# SUBROUTINES USED # SUBROUTINES USED
# SETGAMMA,SETRE,RP-TO-R # SETGAMMA,SETRE,RP-TO-R
#
# ERASABLE INIT. REQ. # ERASABLE INIT. REQ.
# AXO,AYO,AZO,TEPHEM SET AT LAUNCH TIME # AXO,AYO,AZO,TEPHEM SET AT LAUNCH TIME
# LAT-- LATITUDE (REVS B0) # LAT-- LATITUDE (REVS B0)
# LONG-- LONGITUDE (REVS B0) # LONG-- LONGITUDE (REVS B0)
@ -116,10 +116,9 @@ CALLRTRP CALL
# MPAC-- TIME (CSECS B-28) # MPAC-- TIME (CSECS B-28)
# ERADFLAG =1 TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS # ERADFLAG =1 TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
# LUNAFLAG=0 FOR EARTH,1 FOR MOON # LUNAFLAG=0 FOR EARTH,1 FOR MOON
#
# OUTPUT # OUTPUT
# R-VECTOR IN ALPHAV (METERS B-29)
# R-VECTOR IN ALPHAV (METERS B-29)
LALOTORV STQ SETPD # LAT,LONG,ALT TO R VECTOR LALOTORV STQ SETPD # LAT,LONG,ALT TO R VECTOR
INCORPEX INCORPEX
0D 0D
@ -157,13 +156,14 @@ CALLRPRT CALL
VSL1 # R METERS B-29 VSL1 # R METERS B-29
STCALL ALPHAV # EXIT WITH R IN METERS B-29 STCALL ALPHAV # EXIT WITH R IN METERS B-29
INCORPEX INCORPEX
# SUBROUTINE TO COMPUTE EARTH RADIUS # SUBROUTINE TO COMPUTE EARTH RADIUS
#
# INPUT # INPUT
# 1/2 SIN LAT IN ALPHAV +4 # 1/2 SIN LAT IN ALPHAV +4
#
# OUTPUT # OUTPUT
# EARTH RADIUS IN ERADM AND MPAC (METERS B-29) # EARTH RADIUS IN ERADM AND MPAC (METERS B-29)
GETERAD DLOAD DSQ GETERAD DLOAD DSQ
@ -195,12 +195,14 @@ ERAD 2DEC 6373338 B-29 # PAD RADIUS
# Page 1240 # Page 1240
# ARCTAN SUBROUTINE # ARCTAN SUBROUTINE
#
# CALLING SEQUENCE # CALLING SEQUENCE
# SIN THETA IN SINTH B-1 # SIN THETA IN SINTH B-1
# COS THETA IN COSTH B-1 # COS THETA IN COSTH B-1
# CALL ARCTAN # CALL ARCTAN
#
# OUTPUT # OUTPUT
# ARCTAN THETA IN MPAC AND THETA B-0 IN RANGE -1/2 TO +1/2 # ARCTAN THETA IN MPAC AND THETA B-0 IN RANGE -1/2 TO +1/2
@ -212,7 +214,7 @@ CLROVFLW DLOAD DSQ
COSTH COSTH
DAD DAD
BZE SQRT BZE SQRT
ARCTANXX # ATAN=0/0. SET THETA=0 ARCTANXX # ATAN=0/0 SET THETA=0
BDDV BOV BDDV BOV
SINTH SINTH
ATAN=90 ATAN=90
@ -243,17 +245,17 @@ ATAN=90 DLOAD SIGN
# Page 1241 # Page 1241
# ***** SETGAMMA SUBROUTINE ***** # ***** SETGAMMA SUBROUTINE *****
# SUBROUTINE TO SET GAMMA FOR THE LAT-LONG AND LALOTORV SUBROUTINES # SUBROUTINE TO SET GAMMA FOR THE LAT-LONG AND LALOTORV SUBROUTINES
#
# GAMMA = B**2/A**2 FOR EARTH (B-1) # GAMMA = B**2/A**2 FOR EARTH (B-1)
# GAMMA = 1 FOR MOON (B-1) # GAMMA = 1 FOR MOON (B-1)
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 SETGAMMA # L+1 SETGAMMA
#
# INPUT # INPUT
# LUNAFLAG=0 FOR EARTH,=1 FOR MOON # LUNAFLAG=0 FOR EARTH,=1 FOR MOON
#
# OUTPUT # OUTPUT
# GAMMA IN GAMRP (B-1) # GAMMA IN GAMRP (B-1)
@ -270,25 +272,25 @@ GAMRP = 8D
# Page 1242 # Page 1242
# ***** SETRE SUBROUTINE ***** # ***** SETRE SUBROUTINE *****
# SUBROUTINE TO SET RE (EARTH OR MOON RADIUS) # SUBROUTINE TO SET RE (EARTH OR MOON RADIUS)
#
# RE= RM FOR MOON # RE= RM FOR MOON
# RE= RREF FOR FIXED EARTH RADIUS OR COMPUTED RF FOR FISCHER ELLIPSOID # RE= RREF FOR FIXED EARTH RADIUS OR COMPUTED RF FOR FISCHER ELLIPSOID
#
# CALLING SEQUENCE # CALLING SEQUENCE
# L CALL # L CALL
# L+1 SETRE # L+1 SETRE
#
# SUBROUTINES USED # SUBROUTINES USED
# CETERAD # GETERAD
#
# INPUT # INPUT
# ERADFLAG=0 FOR FIXED RE, 1 FOR COMPUTED RE # ERADFLAG=0 FOR FIXED RE, 1 FOR COMPUTED RE
# ALPHAV +4= 1/2 SINL IF GETERAD IS CALLED # ALPHAV +4= 1/2 SINL IF GETERAD IS CALLED
# LUNAFLAG=0 FOR EARTH,=1 FOR MOON # LUNAFLAG=0 FOR EARTH,=1 FOR MOON
#
# OUTPUT # OUTPUT
# ERADM= 504RM FOR MOON (METERS B-29) # ERADM= 504RM FOR MOON (METERS B-29)
# ERADM = ERAD OR COMPUTED RE FOR EARTH (METERS B-29) # ERADM= ERAD OR COMPUTED RF FOR EARTH (METERS B-29)
SETRE STQ DLOAD SETRE STQ DLOAD
SETREX SETREX
@ -313,6 +315,3 @@ TSTRLSRM BON VLOAD # ERADFLAG=0, SET R0=RLS
SETREX = S2 SETREX = S2
504RM 2DEC 1738090 B-29 # METERS B-29 (MOON RADIUS) 504RM 2DEC 1738090 B-29 # METERS B-29 (MOON RADIUS)