(41C) Tracking Satellites in Elliptical Orbits

[twdeckard]

I had to use Free42 (also excellent) as the .raw file had muitiple ends.

I love the fact that there are still experts and tools for this platform.

I am going to reactivate the original project and I will also graft the TLE parser onto this routine.

Code:


"\x00SATRACK"  ;".SATRACK"
XEQ 04
STO 00
CF 12
"TIME  AZIMUTH"
>"  ELEVATION"
AVIEW
LBL 05
XEQ 01
FIX 02
60
/
RCL 12
HR
+
RND
FIX 00
24
MOD
INT
10
X>Y?
>" "
ARCL Y
>":"
LASTX
FRC
60
*
X<Y?
>"0"
ARCL X
RCL 08
X=0?
>"*"
X#0?
>" "
RCL 13
RCL 17
RCL 09
-
SIN
STO 06
X<> L
COS
RCL 15
*
RCL 04
*
RCL 14
RCL 13
*
+
STO 05
RCL 14
*
-
RCL 15
/
RCL 05
ACOS
SIN
STO 09
/
ACOS
RCL 06
SIGN
+
360
MOD
XEQ 08
>"     "
RCL 05
RCL 01
-
RCL 09
/
ATAN
XEQ 06
GTO 05
LBL E
XEQ 04
STO 00
"GROUND TRACK"
AVIEW
CF 12
ADV
"TIME   LAT"
>"   LONG   RNG"
AVIEW
LBL 03
XEQ 01
FIX 00
XEQ 02
FIX 01
RCL 07
XEQ 08
RCL 09
XEQ 08
RCL 01
ACOS
D-R
RCL 19
*
0.1
%
XEQ 06
GTO 03
LBL 01
FIX 06
1
RCL 08
RCL 03
/
-
PI
*
STO 06
ENTER
LBL 00
CLX
RCL 06
R-D
RCL 02
P-R
1
-
STO 07
CLX
RCL 06
-
+
RND
RCL 07
/
ST- 06
X#0?
GTO 00
RCL 06
R-D
COS
RCL 02
-
RCL 07
/
ACOS
RCL 00
SIGN
*
STO 05
RCL 10
*
XEQ 07
RCL 00
-
RCL 00
3.989
/
+
RCL 11
*
360
MOD
STO 09
1
RCL 02
RCL 05
COS
*
-
RCL 03
PI
/
2
ENTER
3
/
Y^X
/
RCL 21
/
1
RCL 02
X^2
-
/
STO 01
CLA
RCL 08
RTN
LBL 08
>" "
LBL 02
RND
ENTER
ABS
X=Y?
>" "
100
X>Y?
>" "
SQRT
X>Y?
>" "
ARCL Z
RTN
LBL 04
FIX 00
SF 12
CF 29
"ORBIT"
PROMPT
ARCL X
AVIEW
ADV
ENTER
X<> 20
-
RCL 03
*
3
/
ENTER
X<> 11
+
360
MOD
X<> 11
15
/
RCL 12
HR
*
24
MOD
HMS
STO 12
RCL 03
RCL 10
MOD
RCL 03
-
STO 00
RCL 18
LBL 07
1
P-R
X<>Y
CHS
RCL 16
*
STO 13
ASIN
STO 07
COS
STO 04
/
ACOS
RCL 07
SIGN
*
RTN
LBL 06
XEQ 02
RCL Z
X>0?
AVIEW
RCL 08
RCL 10
+
STO 00
RCL 03
X<Y?
STOP
END