From 9ef358eb763dcc79d3ee1d5ae3aeaf49c387ada3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= Date: Fri, 29 Oct 2021 20:42:55 +0000 Subject: [PATCH 1/6] proof(luminary099): page 1190 --- Luminary099/CONIC_SUBROUTINES.agc | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 6e3597291..436b0e100 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1251,11 +1251,17 @@ POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2 # Page 1190 DEC 5 2DEC .5 + 2DEC -.166666770 + 2DEC .100000392 + 2DEC -.071401086 + 2DEC .055503292 + 2DEC -.047264098 + 2DEC .040694204 TC INTPRET @@ -1269,6 +1275,7 @@ XCOMMON DSQ NORM R1A 0 -12D,1 STODL XI # XI (+6) + R1 SR1 SQRT ROUND DMP From 0a3ba27acadf6158db3d0b8c00f2a4b62fb3c1e5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= Date: Fri, 29 Oct 2021 20:56:32 +0000 Subject: [PATCH 2/6] proof(luminary099): page 1198 --- Luminary099/CONIC_SUBROUTINES.agc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 436b0e100..86f8041cb 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1275,7 +1275,7 @@ XCOMMON DSQ NORM R1A 0 -12D,1 STODL XI # XI (+6) - + R1 SR1 SQRT ROUND DMP @@ -1630,7 +1630,7 @@ TIMERAD STQ SETPD # PL AT 0 BOV CIRCULAR PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6 - RDESIRED # 35D=ECC (+3) + RDESIRED # 36D=ECC (+3) X1 PDDL DMP # PL AT 8 R1 From 719008395e87e35f503b3b78c1773cc2ca4d67e1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= Date: Fri, 29 Oct 2021 21:00:11 +0000 Subject: [PATCH 3/6] proof(luminary099): page 1200 --- Luminary099/CONIC_SUBROUTINES.agc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 86f8041cb..0eeb82025 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1727,7 +1727,7 @@ GETECC DMP SL4 INFINAPO GOTO RTNAPSE -INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS +INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC,PERIAPSIS LDPOSMAX RTNAPSE # THAT PL IS AT 0. From b33e3566c3d3a57065f24173a99bb83cbf786e7f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= Date: Fri, 29 Oct 2021 21:03:53 +0000 Subject: [PATCH 4/6] proof(luminary099): page 1202 --- Luminary099/CONIC_SUBROUTINES.agc | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 0eeb82025..82c20491e 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1747,17 +1747,16 @@ LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY. # RRECT ERASE +5 # VRECT ERASE +5 # TAU. ERASE +1 -# XKEP ERASE +1 +# XKEP NEW ERASE +1 # TC ERASE +1 # XPREV ERASE +1 1/MU EQUALS 14D ROOTMU EQUALS 16D 1/ROOTMU EQUALS 18D - # OUTPUT - # RCV ERASE +5 # VCV ERASE +5 -# RC ERASE +1 +# TC ERASE +1 # XPREV ERASE +1 # DEBRIS - @@ -1786,7 +1785,7 @@ KEPC2 EQUALS 36D # R2VEC ERASE +5 # TDESIRED ERASE +1 # GEOMSGN ERASE +0 -# GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT +# GUESSW # 0 IF COGA GUESS AVAILABLE, 1 IF NOT # Page 1203 # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO. # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT From a035a45bc3f306344e6038374b98505f30f711f0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= Date: Fri, 29 Oct 2021 21:06:45 +0000 Subject: [PATCH 5/6] proof(luminary099): page 1203 --- Luminary099/CONIC_SUBROUTINES.agc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 82c20491e..b689e396c 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1787,7 +1787,7 @@ KEPC2 EQUALS 36D # GEOMSGN ERASE +0 # GUESSW # 0 IF COGA GUESS AVAILABLE, 1 IF NOT # Page 1203 -# COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO. +# COGA ERASE +1 # INPUT ONLY IF GUESSW IS ZERO. # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT # UN ERASE +5 # ONLY USED IF NORMSW IS 1 # VTARGTAG ERASE +0 @@ -1825,8 +1825,8 @@ DCOGA EQUALS 12D # KEPC2 EQUALS 36D # SLOPESW # SOLNSW - # OTHERS - +# # RVEC EQUALS R1VEC # VVEC ERASE +5 # COGAFLAG From af64ed75800747d670766addcb73a9e3b76c5c27 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ta=C3=ADs=20Massaro?= Date: Fri, 29 Oct 2021 21:08:51 +0000 Subject: [PATCH 6/6] proof(luminary099): page 1204 --- Luminary099/CONIC_SUBROUTINES.agc | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index b689e396c..543463c83 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1847,6 +1847,7 @@ COSF EQUALS 24D # ITERATOR SUBROUTINE + # ORDERSW MAX EQUALS 14D # CLOBBERS 1/MU MIN EQUALS 8D @@ -1860,10 +1861,12 @@ TWEEKIT EQUALS 40D # MORE KEPLER + # EPSILONT ERASE +1 # MORE LAMBERT + # TERRLAMB EQUALS DELDEP # TPREV EQUALS DEPREV