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