Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Proof CONIC_SUBROUTINES (pages 1190-1204) #571 #846

Open
wants to merge 6 commits into
base: master
Choose a base branch
from
Open

Proof CONIC_SUBROUTINES (pages 1190-1204) #571 #846

Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
9ef358e
proof(luminary099): page 1190
taismassaro Oct 29, 2021
0a3ba27
proof(luminary099): page 1198
taismassaro Oct 29, 2021
7190083
proof(luminary099): page 1200
taismassaro Oct 29, 2021
b33e356
proof(luminary099): page 1202
taismassaro Oct 29, 2021
a035a45
proof(luminary099): page 1203
taismassaro Oct 29, 2021
af64ed7
proof(luminary099): page 1204
taismassaro Oct 29, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
25 changes: 17 additions & 8 deletions Luminary099/CONIC_SUBROUTINES.agc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -1269,6 +1275,7 @@ XCOMMON DSQ NORM
R1A
0 -12D,1
STODL XI # XI (+6)

R1
SR1 SQRT
ROUND DMP
Expand Down Expand Up @@ -1623,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
Expand Down Expand Up @@ -1720,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.

Expand All @@ -1740,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 -
Expand Down Expand Up @@ -1779,9 +1785,9 @@ 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.
# 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
Expand Down Expand Up @@ -1819,8 +1825,8 @@ DCOGA EQUALS 12D
# KEPC2 EQUALS 36D
# SLOPESW
# SOLNSW

# OTHERS -
#
# RVEC EQUALS R1VEC
# VVEC ERASE +5
# COGAFLAG
Expand All @@ -1841,6 +1847,7 @@ COSF EQUALS 24D


# ITERATOR SUBROUTINE

# ORDERSW
MAX EQUALS 14D # CLOBBERS 1/MU
MIN EQUALS 8D
Expand All @@ -1854,10 +1861,12 @@ TWEEKIT EQUALS 40D


# MORE KEPLER

# EPSILONT ERASE +1


# MORE LAMBERT

# TERRLAMB EQUALS DELDEP
# TPREV EQUALS DEPREV

Expand Down