ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

proof(luminary099): page 1161

Browse Source
This commit is contained in:
Taís Massaro 2021-10-29 17:09:37 +00:00 committed by GitHub
parent fd2c5ae56f
commit ff0daa961c
1 changed files with 29 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
Luminary099/CONIC_SUBROUTINES.agc
View File

@ -100,24 +100,27 @@
# RRECT * +29 FOR EARTH* DP INITIAL POSITION VECTOR IN METERS # RRECT * +29 FOR EARTH* DP INITIAL POSITION VECTOR IN METERS
# * +27 FOR MOON * # * +27 FOR MOON *
# Page 1161 # Page 1161
# VRECT * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND # VRECT * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
# * +5 FOR MOON * # * +5 FOR MOON *
# X1 (38D) * NONE * INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON, # X1 (38D) * NONE * INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
# * * RESPECTIVELY, IS THE CENTRAL BODY # * * RESPECTIVELY, IS THE CENTRAL BODY
# TAU * +28 * DESIRED TRANSFER TIME IN CENTISECONDS (DP) # TAU. * +28 * DESIRED TRANSFER TIME IN CENTISECONDS (DP)
# * * MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD. # * * MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD.
# XKEPNEW * +17 FOR EARTH * DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU. # XKEPNEW * +17 FOR EARTH* DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS). SIGN SHOULD AGREE WITH THAT OF TAU.
# * +16 FOR MOON * AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI- # * +16 FOR MOON * AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD,VIZ, 2PI SQRT(SEMI-
# * * MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET # * * MAJOR AXIS),FOR SPEED OF CONVERGENCE,BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
# * * BY KEPLER TO A POOR BUT VALID GUESS. # * * BY KEPLER TO A POOR BUT VALID GUESS.
# TC * +28 * DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD. # TC * +28 * DP PREV. VALUE OF TIME IN CENTISECS. MUST BE LESS THAN ONE ORBITAL PERIOD.
# XPREV * +17 FOR EARTH * DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE # XPREV * +17 FOR EARTH* DP PREV. VALUE OF X IN SQRT(METERS). MUST BE LESS THAN AN X CORRESPONDING TO ONE
# * +16 FOR MOON * ORBITAL PERIOD, VIZ, 2PI SQRT(SEMI-MAJOR AXIS) # * +16 FOR MOON * ORBITAL PERIOD,VIZ,2PI SQRT(SEMI-MAJOR AXIS)
#
# #
# SUBROUTINES CALLED - # SUBROUTINES CALLED -
# DELTIME # DELTIME
# #
#
# CALLING SEQUENCE AND NORMAL EXIT MODES - # CALLING SEQUENCE AND NORMAL EXIT MODES -
#
# KEPRTN-2 GOTO # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY. # KEPRTN-2 GOTO # MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
# KEPRTN-1 KEPLER # RETURNS WITH XPREV IN MPAC. PL IS AT 0. # KEPRTN-1 KEPLER # RETURNS WITH XPREV IN MPAC. PL IS AT 0.
# KEPRTN ... # CONTINUE # KEPRTN ... # CONTINUE
@ -126,20 +129,23 @@
# THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH # THE INTERRUPTED JOB. THEREFORE THE USER MUST CALL CSMCONIC OR LEMCONIC WHICH GUARANTEES NO INTERRUPTS AND WHICH
# ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW. # ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW.
# #
#
# ABORT EXIT MODES - # ABORT EXIT MODES -
# NONE # NONE
# #
#
# OUTPUT - # OUTPUT -
# * SCALE FACTOR * #
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS # * SCALE FACTOR *
# -------- *-------------- * ----------------------- # VARIABLE *IN POWERS OF 2* DESCRIPTION AND REMARKS
# RCV * +29 FOR EARTH * DP TERMINAL POSITION VECTOR IN METERS # -------- *--------------* -----------------------
# * +27 FOR MOON * # RCV * +29 FOR EARTH* DP TERMINAL POSITION VECTOR IN METERS
# VCV * +7 FOR EARTH * DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC # * +27 FOR MOON *
# * +5 FOR MOON * # VCV * +7 FOR EARTH * DP TERMINAL VELOCITY VECTOR IN METERS/CENTISEC
# TC * +28 * DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD. # * +5 FOR MOON *
# XPREV * +17 FOR EARTH * DP VALUE OF X IN SQRT(METERS) TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN THE X # TC * +28 * DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD.
# * +16 FOR MOON * CORRESPONDING TO ONE PERIOD. # XPREV * +17 FOR EARTH* DP VALUE OF X IN SQRT(METERS) TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN THE X
# * +16 FOR MOON * CORRESPONDING TO ONE PERIOD.
# Page 1162 # Page 1162
# FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS.
# #