From e4faa667d4e5ed06d88563654b099d7a767239bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= Date: Fri, 29 Oct 2021 18:06:12 +0000 Subject: [PATCH] proof(luminary099): page 1165 --- Luminary099/CONIC_SUBROUTINES.agc | 51 ++++++++++++++++--------------- 1 file changed, 26 insertions(+), 25 deletions(-) diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 6f278f2..d2352f8 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -266,38 +266,39 @@ # # Page 1165 # OUTPUT - -# * SCALE FACTOR * -# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS -# -------- *-------------- * ----------------------- -# VVEC * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE -# * +5 FOR MOON * PROBLEM. -# VTARGET * +7 FOR EARTH * DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND. -# * +5 FOR MOON * -# SOLNSW * NONE * INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE -# * * SOLUTION EXISTS. -# +# * SCALE FACTOR * +# VARIABLE *IN POWERS OF 2* DESCRIPTION AND REMARKS +# -------- *--------------* ----------------------- +# VVEC * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND REQUIRED TO SATISFY THE BOUNDARY VALUE +# * +5 FOR MOON * PROBLEM. +# VTARGET * +7 FOR EARTH * DP RESULTANT VELOCITY VECTOR AT R2VEC IN METERS/CENTISECOND. +# * +5 FOR MOON * +# SOLNSW * NONE * INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR IF THE +# * * SOLUTION EXISTS. # 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 -# -------- *-------------- * ----------------------- -# SNTH * +1 * DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC -# CSTH * +1 * DP COSINE OF ANGLE -# 1-CSTH * +2 * DP 1-CSTH -# COGA * +5 * DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL -# P * +4 * DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS -# R1A * +6 * DP RATIO OF INITIAL RADIUS TO SEMI-MAJOR AXIS -# R1 (32D) * +29 FOR EARTH * DP INITIAL RADIUS IN METERS -# * +27 FOR MOON * -# UR1 * +1 * DP UNIT VECTOR OF R1VEC -# U2 * +1 * DP UNIT VECTOR OF R2VEC +# * SCALE FACTOR * +# VARIABLE *IN POWERS OF 2* DESCRIPTION AND REMARKS +# -------- *--------------* ----------------------- +# SNTH * +1 * DP SIN OF ANGLE BETWEEN R1VEC AND R2VEC +# CSTH * +1 * DP COSINE OF ANGLE +# 1-CSTH * +2 * DP 1-CSTH +# COGA * +5 * DP COTAN OF INITIAL REQUIRED FLIGHT PATH ANGLE MEASURED FROM VERTICAL +# P * +4 * DP RATIO OF SEMILATUS RECTUM TO INITIAL RADIUS +# R1A * +6 * DP RATIO OF INITIAL RADIUS TO SEMIMAJOR AXIS +# R1 (32D) * +29 FOR EARTH* DP INITIAL RADIUS IN METERS +# * +27 FOR MOON * +# UR1 * +1 * DP UNIT VECTOR OF R1VEC +# U2 * +1 * DP UNIT VECTOR OF R2VEC # # PARAMETERS OF NO USE - -# DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D -# ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW +# DP PARAMETERS - EPSILONL, CSTH-RHO, TPREV, TERRLAMB, R2, RTNLAMB (SP), PLUS PUSHLIST REGISTER 0 THROUGH 41D +# ADDITIONAL INTERPRETIVE SWITCHES USED - INFINFLG, 360SW, SLOPESW, ORDERSW +# # Page 1166 # PROGRAM DESCRIPTION - TIME-THETA SUBROUTINE DATE - 1 SEPTEMBER 1967