From dd0a12786812c8aac58f1eb9c5244b7f38bd2d63 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= Date: Fri, 29 Oct 2021 17:14:15 +0000 Subject: [PATCH] proof(luminary099): page 1162 --- Luminary099/CONIC_SUBROUTINES.agc | 32 +++++++++++++++++-------------- 1 file changed, 18 insertions(+), 14 deletions(-) diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index c0c196d..fb8650f 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -146,24 +146,28 @@ # TC * +28 * DP TRANSFER TIME IN CENTISECS TO WHICH KEPLER CONVERGED. ALWAYS LESS THAN 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 # FOR OTHER OUTPUT WHICH MAY BE OF USE, SEE DEBRIS. # -# DEBRIS - -# PARAMETERS WHICH MAY BE OF USE - -# * SCALE FACTOR * -# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS -# -------- *-------------- * ----------------------- -# URRECT * +1 * DP UNIT VECTOR OF INITIAL POSITION -# R1 * +29 FOR EARTH * DP MAGNITUDE OF INITIAL POSITION IN METERS -# * +27 FOR MOON * -# ALPHA * -22 FOR EARTH * DP INVERSE OF SEMI-MAJOR AXIS IN 1/METERS -# * -20 FOR MOON * -# TMODULO * +28 * DP INTEGRAL NUMBER OF PERIODS IN CENTISECS, WHICH WAS SUBTRACTED FROM TAU, TO PRODUCE A -# * * TAU. OF LESS THAN ONE PERIOD. # -# PARAMETERS OF NO USE - -# DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D. +# DEBRIS - +# +# PARAMETERS WHICH MAY BE OF USE - +# +# * SCALE FACTOR * +# VARIABLE *IN POWERS OF 2* DESCRIPTION AND REMARKS +# -------- *--------------* ----------------------- +# URRECT * +1 * DP UNIT VECTOR OF INITIAL POSITION +# R1 * +29 FOR EARTH* DP MAGNITUDE OF INITIAL POSITION IN METERS +# * +27 FOR MOON * +# ALPHA * -22 FOR EARTH* DP INVERSE OF SEMIMAJOR AXIS IN 1/METERS +# * -20 FOR MOON * +# TMODULO * +28 * DP INTEGRAL NUMBER OF PERIODS IN CENTISECS. WHICH WAS SUBTRACTED FROM TAU. TO PRODUCE A +# * * TAU. OF LESS THAN ONE PERIOD. +# +# PARAMETERS OF NO USE - +# DP PARAMETERS - EPSILONT, DELX, DELT, RCNORM, XMODULO, PLUS PUSHLIST REGISTERS 0 THROUGH 39D. # Page 1163