Skip to content

Commit eabf9de

Browse files
committed
Proof Luminary099/TIME_OF_FREE_FALL
Fix two transcription errors found by comparing against scan pages 1275-1276: - Page 1275 (R0293-R0295): MOD BY: 3/4/5 -> MOD NO: 3/4/5 The modification number field was transcribed as MOD BY instead of MOD NO for entries 3, 4, and 5. MOD NO: 1 and MOD NO: 2 above them were correct. - Page 1276 (R0393): M:(-36+2N4) -> M:(-36+2NR) The R in NR was misread as 4. Every other instance of this scale factor in the file correctly reads 2NR. Partially resolves #647
1 parent 247dd7d commit eabf9de

1 file changed

Lines changed: 7 additions & 7 deletions

File tree

Luminary099/TIME_OF_FREE_FALL.agc

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -80,7 +80,7 @@ NRMAG = 32D # PRESENT RADIUS M E: (-29+NR)
8080
TFFX = 34D #
8181
TFFTEM = 36D # TEMPORARY
8282
# Page 1269
83-
# REGISTERS S1, S2 ARE UNTOUCED BY ANY TFF SUBROUTINE
83+
# REGISTERS S1, S2 ARE UNTOUCHED BY ANY TFF SUBROUTINE
8484
# INDEX REGISTERS X1, X2 ARE USED BY ALL TFF SUBROUTINES. THEY ARE ESTAB-
8585
# LISHED IN TFF/CONIC AND MUST BE PRESERVED BETWEEN CALLS TO SUBSEQUENT
8686
# SUBROUTINES.
@@ -233,7 +233,7 @@ DUMPCNIC RVQ
233233
# 2. APOGEE RADIUS IS NOT DEFINED FOR PARABOLA
234234
# 3. APOGEE RADIUS EXCEEDS THE SCALING FOR ELLIPSE.
235235
#
236-
# THIS SUBROUTINE REQUIRED THE SIGNED RECIPROCAL SEMI MAJ AXIS, ALFA, AND SEMI-LATUS RECTUM AS DATA.
236+
# THIS SUBROUTINE REQUIRES THE SIGNED RECIPROCAL SEMI MAJ AXIS, ALFA, AND SEMI LATUS RECTUM AS DATA.
237237
#
238238
# CALLING SEQUENCE: CALL
239239
# TFFRP/RA
@@ -307,9 +307,9 @@ DUMPRPRA RVQ
307307
# MOD BY: RR BAIRNSFATHER
308308
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 67
309309
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 14 APR 67
310-
# MOD BY: 3 MOD BY: RR BAIRNSFATHER DATE: 8 JUL 67 NEAR EARTH MUE AND NEG TFF (GONEPAST)
311-
# MOD BY: 4 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 ADD VARIABLE MU.
312-
# MOD BY: 5 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EARTH/MOON SCALES
310+
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 8 JUL 67 NEAR EARTH MUE AND NEG TFF (GONEPAST)
311+
# MOD NO: 4 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 ADD VARIABLE MU.
312+
# MOD NO: 5 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EARTH/MOON SCALES
313313
#
314314
# FUNCTIONAL DESCRIPTION: PROGRAM CALCULATES THE FREE-FALL TIME OF FLIGHT FROM PRESENT POSITION RN AND
315315
# VELOCITY VN TO A RADIUS LENGTH SPECIFIED BY RTERM, SUPPLIED BY THE USER. THE POSITION VECTOR
@@ -340,7 +340,7 @@ DUMPRPRA RVQ
340340
# AND TFF = (PI/SQRT(ALFA) -Q2 +Q1 +2(X T(X) -1) /ALFA Z) /ALFA SQRT(MU)
341341
# WHERE T(X) IS A POLYNOMIAL APPROXIMATION TO THE SERIES
342342
# 2 3 2
343-
# 1/3 - X/5 + X /7 - X /8 ... (X < 1.0)
343+
# 1/3 - X/5 + X /7 - X /9 ... (X < 1.0)
344344
#
345345
# CALLING SEQUENC: TIME TO RTERM TIME TO PERIGEE
346346
# CALL CALL
@@ -383,7 +383,7 @@ DUMPRPRA RVQ
383383
# M:(-27+NR)
384384
# X1 -NR, NORM COUNT LEFT BY TFFCONIC
385385
# TFFNP E:(-38+2NR) M LCP, SEMI LATUS RECTUM, WEIGHT NR LEFT BY TFFCONIC
386-
# M:(-36+2N4)
386+
# M:(-36+2NR)
387387
# TFFALFA E:(26-NR) 1/M ALFA, WEIGHT NR LEFT BY TFFCONIC
388388
# M:(24-NR)
389389
# TFFRTALF E:(10+NA) SQRT(ALFA), NORMALIZED LEFT BY TFFCONIC

0 commit comments

Comments
 (0)