koreth%panarthea.ebay@sun.com (Steven Grimm) (08/08/89)
Submitted-by: logajan@ns.network.com (John Logajan)
Posting-number: Volume 2, Issue 66
Archive-name: norad
Below are two files generically named NORAD Release V1.0.
NORAD is a GFA Basic (2.0) implementation of a real-time
multiple earth satellite tracking program. Earth satellites
are graphically depicted against a map of earth's continents.
It is a very pretty display in my humble opinion.
A sample orbital elements file containing 98 satellites is
included, but I suggest you make an effort to get ahold of
the most recent released elements if you want to accurately
track satellites.
Thanks -- John Logajan.
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# norad.lst
# orbitals.dat
cat << \SHAR_EOF > norad.lst
Rem N.O.R.A.D. V1.0 The graphic realtime satellite tracking program.
Rem ATARI ST -- GFA BASIC 2.0
Rem Please customize the six lines below.
Rem
Tlocal=-5 ! Your time difference from GMT (UTC). i.e. -5 = CDT
L9=45.0709 ! Your latitude, degrees.fraction-of-degrees.
W9=93.1567 ! Your longitude, degrees.fraction. i.e +values for USA
H9=980 ! Your altitude above sea-level. (Feet)
El$="C:ORBITALS.DAT" ! Path to orbital elements file. (NASA Predictions)
Ms=500 ! Maximum number of satellites. (To reserve space)
Rem
Rem Orbital calculation subroutines from the AMSAT Orbital Prediction Program
Rem (C) 1980 by Dr. T. A. Clark W3IWI, 6388 Guilford Road, Clarksville MD
Rem 21209 USA. "Permission granted for non-commercial use provided credit is
Rem given to author, AMSAT and ORBIT magazine. See ORBIT issue 6, March/
Rem April 1981. Ported to ATARI ST BASIC by Scott Tilley (1/24/87.)
Rem
Rem Graphic interface and world map by John Logajan, 4248 Hamline, Arden Hills
Rem MN 55112 USA. 8/7/89 Graphic interface and map code are released into
Rem the public domain.
Rem
Dim C(3,2),Lvt%(200),S$(Ms),Y3(Ms),T0(Ms),Mmr(Ms),I0(Ms),O0(Ms),E0(Ms)
Dim W0(Ms),M0(Ms),N0(Ms),K0(Ms),A0(Ms),Xx%(Ms),Yy%(Ms)
H9=H9*12/39.37
Repeat
Repeat
Deftext 3,16,0,32
Text 130,25,0,"Welcome to N.O.R.A.D."
Deftext 1,0,0,13
Text 105,45,0,"Your clock said the time was: "+Date$+" "+Time$
Deftext 2,0,0,13
Text 100,61,0,"Please be sure it is set to the EXACT time and date!"
Text 175,160,0,"Press the HELP key for instructions."
Text 80,186,0,"- Point at satellite of interest and click to get its info -"
A$="Want to set/reset the clock?"
Alert 2,A$,1,"No need|SetClock",But
If But=2
Cls
Print "Enter date (or RETURN to skip)"
Print
Print "Use the format month/day/year."
Print "Be sure to use two digits (leading zeroes) for each."
Print "Otherwise the system will ignore the new date."
Print
Print Date$;
Input " Date ";D$
Cls
Print "Enter local time (or RETURN to skip)"
Print
Print "Use the format hour:minute:second."
Print "Be sure to use two digits (leading zeroes) for each."
Print "Otherwise the system will ignore the new time."
Print
Print Time$;
Input " Time ";T$
Settime T$,D$
Endif
Cls
Until But=1
Y=Val(Right$(Date$,4))-1900
If Y<89
Print " Is it really the year ";1900+Y;" ?"
Print "I haven't made the program so it can work in years before 1989,"
Print "so I am going to force you to set your clock/calender."
Alert 1," ",1,"continue",But
Cls
Endif
Until Y>=89
If Y/4=Int(Y/4)
F9=1
Else
F9=0 ! leap-year flag
Endif
D=Val(Mid$(Date$,4,2))
M=Val(Left$(Date$,2))
Rem Calculate day of year
Data 0,31,59,90,120,151,181,212,243,273,304,334
For I=1 To 12
Read D9x
If I=M
D9=D9x
Endif
Next I
D8=D+D9
If M>2
D8=D8+F9
Endif
T$=Time$
Tstart=Timer
H=Val(Left$(T$,2))
S=Val(Right$(T$,2))
M=Val(Mid$(T$,4,2))
T7=D8+H/24+M/1440+S/86400-Tlocal/24
R0=6378.135 ! physical constants
F=298.25
G0=7.5369793E+13
G1=1.0027379093
P2=2*Pi
P0=Pi/180
F=1/F
Rem Greenwich Sidereal Time at New Year's
Yt%=0
For Y1=89 To Y
Yd%=365
If Y1/4=Int(Y1/4)
Yd%=366
Endif
Yt%=Yt%+Yd%
Next Y1
G2=Frac(Yt%*G1+0.27676779)
Rem Routine to evaluate OBSERVER's GEOCENTRIC Coordinates, where
Rem X-axis=GREENWICH, Y-axis goes thru India, Z-axis=North Pole
L8=L9*P0
S9=Sin(L8)
C9=Cos(L8) ! Initial GEOCENTRIC coordinates
S8=Sin(-W9*P0)
C8=Cos(W9*P0) ! W9= West longitude
Rem Now to account for flattened Earth
R9=R0*(1-(F/2)+(F/2)*Cos(2*L8))+H9/1000 ! H9=height in meters
Rem Now to make L8 the GEOCENTRIC latitude
L8=Atn((1-F)^2*S9/C9)
Z9=R9*Sin(L8)
X9=R9*Cos(L8)*C8
Y9=R9*Cos(L8)*S8
Rem *********** get Parameters for Satellites *********
Print "Reading orbital elements from file: ";El$
Print
On Error Gosub Missing
Open "I",#1,El$
Sp%=0
On Error Gosub Baddy
Do
Exit If Eof(#1)
Line Input #1,Ln$
Exit If Eof(#1)
Line Input #1,L1$
Exit If Eof(#1)
Line Input #1,L2$
While Left$(L1$,1)<>"1" Or Left$(L2$,1)<>"2"
Ln$=L1$
L1$=L2$
Exit If Eof(#1)
Line Input #1,L2$
Wend
Exit If Eof(#1)
Inc Sp%
S$(Sp%)="[ "+Left$(Ln$,11)+" "+Mid$(L1$,3,5)+" ]"
Y3(Sp%)=Val(Mid$(L1$,19,2))
T0(Sp%)=Val(Mid$(L1$,21,12))
If Y3(Sp%)<Y ! Correct for "old" orbital elements
Yt%=0
For Y1=Y3(Sp%) To Y-1
Yd%=365
If Y1/4=Int(Y1/4)
Yd%=366
Endif
Yt%=Yt%+Yd%
Next Y1
T0(Sp%)=T0(Sp%)-Yt%
Y3(Sp%)=Y
Endif
Mmr(Sp%)=Val(Mid$(L1$,34,10))
I0(Sp%)=Val(Mid$(L2$,9,8))
O0(Sp%)=Val(Mid$(L2$,18,8))
E0(Sp%)=Val("."+Mid$(L2$,27,7))
W0(Sp%)=Val(Mid$(L2$,35,8))
M0(Sp%)=Val(Mid$(L2$,44,8))
N0(Sp%)=Val(Mid$(L2$,53,11))
K0(Sp%)=Val(Mid$(L2$,64,5))
A0(Sp%)=0
Xx%(Sp%)=-1
Yy%(Sp%)=-1
Print Sp%;Tab(5);S$(Sp%)
If Sp%>Ms
Print "Oops! Not enough room reserved for all satellite elements."
Print "Increase the variable -Ms- to a higher number and try again."
Edit
Endif
If Inp?(2)
If Inp(2)=27
Edit
Endif
Endif
Loop
On Error
If Sp%=0
Gosub Missing
Endif
Close #1
Mxsp%=Sp%-1
Rem ******** Here follows the actual computation loop *********
Cls
Setcolor 0,0,0,0 ! For color 0 (black -- background)
Setcolor 1,0,0,7 ! For color 2 (blue -- trails)
Setcolor 3,7,0,0 ! For color 1 (red -- satellites/text/arrow)
Setcolor 2,3,2,0 ! For color 3 (brown -- world map)
Deffill 3,1
White!=False
Hilite!=False
Facts!=False
Clkon!=False
Mapon!=True
D$=Chr$(248)
Gosub Map
Do
For Sp%=1 To Mxsp%
T=T7+(Timer-Tstart)/17280000
Gosub Fnc
Gosub Fnm
Gosub Fnk
Gosub Fnx
Color 2
If Hilite!
If Sp%=Sr%
Color 1
Endif
Endif
Plot Xx%(Sp%),Yy%(Sp%)
Yy%(Sp%)=1.11111111*(90-L5)
Wx5=W5+180
If Wx5>=360
Wx5=Wx5-360
Endif
Xx%(Sp%)=1.77777777*(360-Wx5)
Color 1
Plot Xx%(Sp%),Yy%(Sp%)
If Facts!
Swap Sp%,Sr%
T=T7+(Timer-Tstart)/17280000
Gosub Fnc
Gosub Fnm
Gosub Fnk
Gosub Fnx
Print "AZ=";Int(A9);D$;Tab(8);"EL=";Int(E9);D$;Tab(16);"ALT=";
Print Int((R-R0)*0.6215);"m";Tab(28);"LT=";Int(L5);D$;Tab(36);
Print "LN=";Int(W5);D$;Tab(44);"ORB#=";K;Tab(56);S$(Sp%);Chr$(13);
Swap Sp%,Sr%
Endif
If Mousek<>0
Xm%=Mousex
Ym%=Mousey
Hilite!=False
Facts!=False
Pause 5
Mk%=Mousek
If Mk%=3
Cls
Gosub Map
Else
Print Spc(78);Chr$(13);
If Mk%=1 Or Mk%=2
Found!=False
For Sr%=0 To Mxsp%
If ((Xx%(Sr%)-Xm%) And &HFFE)=0 And ((Yy%(Sr%)-Ym%) And &HFFE)=0
Found!=True
Print Chr$(7); ! Sound bell!
Pause 50
Endif
Exit If Found!
Next Sr%
If Sr%=0
Found!=False
Print "That's not a satellite, that's you!";Chr$(13);
Endif
If Mk%=1
Facts!=Found!
Endif
If Mk%=2
Hilite!=Found!
Endif
Endif
Endif
Endif
If Inp?(2)
Ex$=Inkey$
If Ex$=Chr$(27) ! Esc key quits.
Gosub Done
Endif
If Ex$=Chr$(0)+"b" ! Help key
Gosub Help
Endif
If Ex$=Chr$(0)+"G" ! Clr/Home key clears screen
Cls
Facts!=False
Hilite!=False
Gosub Map
Endif
If Ex$=Chr$(0)+";" ! F1 - toggel background
White!=Not White!
If White!
Setcolor 0,7,7,7
Setcolor 1,0,0,0
Setcolor 2,5,6,3
Else
Setcolor 0,0,0,0
Setcolor 1,0,0,7
Setcolor 3,7,0,0
Setcolor 2,3,2,0
Endif
Endif
If Ex$=Chr$(0)+"<" ! F2 - toggel world map drawing
Mapon!=Not Mapon!
If Mapon!
Print "Map will be redrawn after next CLR/HOME ";Chr$(13);
Else
Print "Map will not be redrawn after next CLR/HOME";Chr$(13);
Endif
Pause 25
Endif
If Ex$=Chr$(0)+"=" ! F3 - toggel clock
Clkon!=Not Clkon!
If Not Clkon!
Text 480,199,0," "
Fill 481,198
Else
Deftext 1,0,0,6
Text 480,199,0,Time$+" "+Date$
Endif
Endif
Endif
Next Sp%
If Clkon!
Text 480,199,0,Time$+" "+Date$
Endif
Loop
End
Procedure Missing
Print "The data file is missing or empty! You need the orbital elements"
Print "data for each satellite -- available on-line from the Celestial BBS,"
Print " @ 513-427-0674, Fairborn Ohio, TS Kelso -- sysop."
Print
Print "Or, if you have the file, make sure you change the path in the first"
Print "few lines of this program to point to it! Right now the path is set"
Print "to point at ";El$
Stop
Return
Procedure Baddy
Print "The data file ";El$;" has problems."
Print "The most likely problem is that the line at the end of the file is"
Print "not terminated by a carriage return (CR) and/or line feed (LF)."
Print "Please correct the file and try it again!"
Stop
Return
Procedure Done
Color 1
Setcolor 0,7,7,7
Setcolor 3,0,0,0
Setcolor 1,7,0,0
Setcolor 2,0,7,0
Edit
Return
Procedure Help
Alt$="Aim mouse arrow to select:"
Alt$=Alt$+"|Satellite's data -left button"
Alt$=Alt$+"|Highlight trail -right button"
Alt$=Alt$+"|Clear screen -both buttons"
Alert 0,Alt$,1,"Resume|MoreHelp|STOP!",But
If But=2
Alt$="F1 - Toggel background color"
Alt$=Alt$+"|F2 - World-map off/on"
Alt$=Alt$+"|Esc - Stop program"
Alt$=Alt$+"|Clr/Home - Clear screen"
Alert 0,Alt$,1,"Resume|MoreHelp",But
If But=2
Alt$="To sight actual satellite:"
Alt$=Alt$+"|AZ: 0=North, 90=East 180S/270W"
Alt$=Alt$+"|EL: 0=Horizon, 90=Straight up"
Alert 0,Alt$,1,"Resume|MoreHelp",But
If But=2
Alt$="ALT: Altitude(Miles/sea-level)"
Alt$=Alt$+"|LT/LN: Latitude/Longitude"
Alt$=Alt$+"|ORB#: Current revolution #"
Alt$=Alt$+"|- xx - Description & Sat #"
Alert 0,Alt$,1,"Resume|MoreHelp",But
If But=2
Alt$="Misc functions:"
Alt$=Alt$+"|F3 - Show clock on/off"
Alt$=Alt$+"|ALT+HELP - Print screen"
Alt$=Alt$+"|Hint: F1 before printing!"
Alert 0,Alt$,1,"EndHelp",But
Endif
Endif
Endif
Else
If But=3
Gosub Done
Endif
Endif
Return
Rem ********** ORBIT DETERMINATION ROUTINES ******************
Procedure Fnc
Rem Routine to initialize the C(J,K) coordinate rotation matrix
Rem and other parameters associated with the orbital elements.
A0(Sp%)=((G0/(N0(Sp%)^2))^(1/3))
E2=1-E0(Sp%)^2
E1=Sqr(E2)
Q0=M0(Sp%)/360+K0(Sp%) ! Q0=initial orbit phase
Rem -----Account for nodal effects due to lumpy gravity field due to
Rem the flattened, oblate spheroid shape of Earth
K2=9.95*((R0/A0(Sp%))^3.5)/(E2^2)
Rem Update elements to current epoch and evaluate their SIN/COSs
S1=Sin(I0(Sp%)*P0)
C1=Cos(I0(Sp%)*P0) ! I0=inclination
O=O0(Sp%)-(T-T0(Sp%))*K2*C1
S0=Sin(O*P0)
C0=Cos(O*P0) ! O = R.A.A.N. (deg)
W=W0(Sp%)+(T-T0(Sp%))*K2*(2.5*(C1^2)-0.5)
S2=Sin(W*P0)
C2=Cos(W*P0) ! W = arg of perigee
Rem Set up coordinate rotation matrix for the current orbit
C(1,1)=+(C2*C0)-(S2*S0*C1)
C(1,2)=-(S2*C0)-(C2*S0*C1)
C(2,1)=+(C2*S0)+(S2*C0*C1)
C(2,2)=-(S2*S0)+(C2*C0*C1)
C(3,1)=+(S2*S1)
C(3,2)=+(C2*S1)
Return
Rem ------------------------------------------------------------------
Procedure Fnm
Rem ---- Function to evaluate M = MEAN ANOMALY in 0-2pi range----
Rem K = perigee passage counter
Rem used by Phase-3 telemetry on General Beacon
Q=N0(Sp%)*(T-T0(Sp%))+Q0
K=Int(Q)
M=(Q-K)*P2
Return
Rem -----------------------------------------------------------------
Procedure Fnk
Rem Routine to solve KEPLER's equation, given M
Rem returns satellite's GEOCENTRIC coordinates
E=M+E0(Sp%)*Sin(M)+0.5*(E0(Sp%)^2)*Sin(2*M) ! initial trial value
Rem interation loop to solve Kepler's transcental equation-------
Do
S3=Sin(E)
C3=Cos(E)
R3=1-E0(Sp%)*C3
M1=E-E0(Sp%)*S3
M5=M1-M
Exit If Abs(M5)<1.0E-06
E=E-M5/R3
Loop
Rem Now get satellite's XYZ coordinates------------
X0=A0(Sp%)*(C3-E0(Sp%))
Y0=A0(Sp%)*E1*S3
R=A0(Sp%)*R3 ! in the plane of the orbit
Rem Now rotate from orbital plane to INERTIAL CELESTIAL Coordinates
X1=X0*C(1,1)+Y0*C(1,2)
Y1=X0*C(2,1)+Y0*C(2,2)
Z1=X0*C(3,1)+Y0*C(3,2)
Rem Rotate through current GHA of Aries, convert to GEOCENTRIC coordinates
G7=T*G1+G2
G7=(G7-Int(G7))*P2
S7=-Sin(G7)
C7=Cos(G7)
X=+(X1*C7)-(Y1*S7)
Y=+(X1*S7)+(Y1*C7)
Z=Z1
Return
Rem ----------------------------------------------------------
Procedure Fnx
Rem Routine to extract all the parameters you might ever need
Rem First get Vector from observer to satellite--
X5=(X-X9)
Y5=(Y-Y9)
Z5=(Z-Z9)
R5=Sqr(X5^2+Y5^2+Z5^2)
Rem Now rotate into observer' s LOCAL Coordinates----
Rem where X8=North, Y8=East, Z8=Up (Left-handed system)
Z8=+(X5*C8*C9)+(Y5*S8*C9)+(Z5*S9)
X8=-(X5*C8*S9)-(Y5*S8*S9)+(Z5*C9)
Y8=+(Y5*C8)-(X5*S8)
S5=Z8/R5
C5=Sqr(1-S5*S5)
E9=(Atn(S5/C5))/P0 ! E9=elevation
Dx=X8
Dy=Y8
Gosub Fna
A9=D/P0 ! FNA resolves quadrant A9=Azimuth
Dx=X
Dy=Y
Gosub Fna
W5=360-D/P0 ! W5=SubSatellitePoint W.long.
B5=Z/R
L5=Atn(B5/(Sqr(1-B5^2)))/P0 ! L5=SSP Lat.
Return !---note R-R0=sat. alt. above mean spheroid
Rem --------------------------------------------------------------------
Procedure Fna
Rem Calculates INVERSE TANGENT in proper quadrant ala FORTRAN ATAN2
If Dx<0
D=Pi+Atn(Dy/Dx) ! Q2 or Q3
Endif
If Dx>0 ! Q1 or Q4
If Dy>=0
D=Atn(Dy/Dx)
Else
D=P2+Atn(Dy/Dx)
Endif
Endif
Rem The two cases for DX=0
If Dx=0
If Dy>=0
D=Pi/2
Else
D=3*Pi/2
Endif
Endif
Return
Rem -------------------------------------------------------------------
Procedure Map
Cls
If Mapon!
Arrayfill Xx%(),-1
Arrayfill Yy%(),-1
Restore Map
For Mj%=0 To 199
Read Lvt%(Mj%)
Next Mj%
Green!=False
For My%=0 To 199
Ox%=0
Nx%=640
Lvs%=Lvt%(My%)
Repeat
If Lvs%<>0
Read Nx%
Endif
If Green!
Color 3
Else
Color 0
Endif
Draw Ox%,My% To Nx%,My%
Ox%=Nx%
If Lvs%<>0
Green!=Not Green!
Endif
Dec Lvs%
Until Lvs%<=0
If Green!
Color 3
Draw Nx%,My% To 640,My%
Endif
Next My%
Endif
Yy%(0)=1.11111111*(90-L9)
Wx5=W9+180
If Wx5>=360
Wx5=Wx5-360
Endif
Xx%(0)=1.77777777*(360-Wx5)
Color 2
Circle Xx%(0),Yy%(0),3
Color 1
Plot Xx%(0),Yy%(0)
Return
Rem World map data (by John Logajan) in scanned form (for data compression),
Rem left to right, top to bottom (0-639, 0-199.)
Rem The first 200 datums represent the number of color transitions per each
Rem line. The remaining datums represent each X coordinate at which the
Rem transitions occur -- it is up to the software to keep track of the Y
Rem coordinate based on the transitions-count-per-line data.
Map:
Data 0,0,0,0,0,0,0,2,4,4,8,12,12,18,18,22,16,10,24,20,21,20,19,18,13,10,12,14
Data 16,17,14,12,12,16,18,18,18,16,18,20,18,20,18,10,12,8,10,12,12,16,20,18,20
Data 18,14,20,22,16,16,16,16,14,8,10,10,10,6,12,14,12,14,12,20,14,14,20,18,18
Data 18,18,14,12,14,12,12,12,18,18,16,20,16,12,14,16,12,10,10,10,14,16,18,18,12
Data 16,20,14,18,14,10,10,14,10,10,10,12,14,12,12,13,11,10,8,12,12,10,8,8,8,8,6
Data 6,6,6,6,6,6,8,8,10,6,6,6,6,6,4,6,6,6,8,6,4,4,4,2,4,4,2,4,4,2,4,4,0,0,0,0,0
Data 2,2,2,2,2,4,8,6,6,8,8,4,6,6,6,6,6,4,5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,236,283
Data 163,201,207,285,159,196,203,300,157,182,198,297,352,369,485,495,146,156
Data 164,177,189,194,200,290,339,369,483,498,145,159,162,185,191,288,340,360
Data 490,496,501,507,114,117,121,126,135,139,146,159,161,186,190,287,342,354
Data 356,365,497,509,100,106,112,117,148,158,160,182,193,288,346,351,358,362
Data 436,443,496,520,99,106,113,116,125,131,136,139,141,144,149,156,159,180,196
Data 286,423,443,479,523,567,575,135,138,148,154,175,179,216,287,418,432,473
Data 523,565,578,581,589,98,111,161,171,218,286,416,427,470,522,99,110,114,121
Data 126,132,137,142,146,153,159,178,180,185,220,284,414,423,443,448,462,549
Data 569,576,97,110,111,135,137,141,145,154,160,189,220,282,411,419,442,450,452
Data 551,567,587,0,5,41,45,98,109,110,136,145,155,160,195,220,282,411,421,439
Data 551,554,591,637,3,31,61,88,93,114,139,146,154,170,199,222,282,357,376,414
Data 422,438,605,638,0,30,75,79,107,146,158,165,169,182,201,222,281,350,382,425
Data 434,438,632,0,4,24,121,128,138,142,171,184,202,226,276,345,388,396,402,406
Data 636,0,9,24,122,126,174,182,206,224,267,342,393,397,15,29,175,183,211,224
Data 261,343,394,397,19,22,166,186,210,224,259,277,282,284,294,342,16,21,164
Data 169,174,180,208,225,250,276,296,340,360,363,0,8,13,24,162,166,175,180,205
Data 227,249,277,295,337,359,360,0,14,19,27,159,165,175,191,206,228,248,279,291
Data 333,357,358,639,25,159,181,191,194,206,229,245,306,309,329,352,357,636,24
Data 155,181,193,199,203,231,246,328,351,357,631,24,153,181,197,233,245,328,352
Data 357,597,604,627,28,56,61,152,182,197,203,207,239,244,329,354,360,596,605
Data 617,32,52,73,155,180,199,201,209,311,315,329,353,359,585,588,596,603,613
Data 37,50,75,156,181,211,307,317,330,336,340,350,352,355,358,571,599,611,36,43
Data 47,50,78,161,183,212,307,317,341,350,352,354,357,569,597,610,32,40,45,47
Data 79,165,183,212,309,316,341,349,357,566,596,611,27,37,82,174,179,215,305
Data 307,310,318,334,340,343,346,356,566,596,608,26,29,83,86,87,174,178,219,302
Data 308,310,320,335,342,347,569,572,574,596,609,20,25,83,86,87,176,179,221,302
Data 308,312,321,329,570,571,575,596,605,84,87,90,143,147,177,179,221,303,308
Data 311,324,328,570,571,575,597,602,626,629,5,7,86,88,92,177,179,222,301,308
Data 310,323,326,570,571,575,598,602,91,216,312,321,323,570,572,576,597,600,92
Data 214,217,222,310,314,321,570,572,576,595,597,95,211,216,221,318,570,572,577
Data 98,161,166,206,214,224,315,570,572,574,99,159,163,165,168,207,216,223,314
Data 568,572,575,99,158,161,214,316,410,414,566,572,575,586,588,99,167,173,213
Data 318,374,378,406,412,426,428,565,571,573,582,587,99,164,168,172,175,210,317
Data 373,379,383,386,404,409,424,428,563,571,576,581,583,99,163,166,173,178,197
Data 202,205,305,345,347,372,389,405,411,561,571,580,98,163,166,174,177,195,303
Data 327,329,332,338,345,350,370,391,405,411,559,568,579,98,196,304,326,335,337
Data 339,349,352,370,377,385,393,407,412,553,568,575,99,193,304,324,334,338,342
Data 352,354,409,413,551,568,572,99,189,304,321,325,327,334,338,346,353,354,363
Data 366,410,413,535,536,549,568,573,100,188,303,320,324,326,334,338,348,351
Data 355,362,366,408,414,533,535,539,542,548,568,573,100,187,303,321,341,350
Data 356,364,366,407,415,531,541,549,567,572,102,186,304,319,342,348,357,363
Data 368,410,415,538,542,550,563,571,103,186,308,317,320,339,345,348,358,362
Data 369,538,544,551,561,571,104,186,310,313,318,340,361,367,378,382,383,534
Data 544,551,556,571,105,185,308,340,363,367,377,381,383,534,544,549,552,569
Data 108,182,305,340,382,535,551,563,111,180,303,346,356,362,381,535,550,559
Data 112,177,303,348,355,366,381,537,551,555,113,117,118,176,302,353,355,537
Data 551,554,113,117,119,176,302,538,114,118,120,162,168,177,295,297,301,406
Data 410,537,116,120,121,151,172,177,290,293,294,296,300,407,410,537,115,121
Data 123,148,172,178,298,382,383,408,411,535,117,122,124,148,173,178,180,183
Data 294,381,384,410,414,534,120,123,125,148,174,178,294,382,385,412,419,533
Data 120,124,127,147,175,177,180,182,293,383,386,412,416,421,428,436,438,532
Data 534,537,122,125,128,147,181,183,292,384,386,425,439,531,533,537,124,126
Data 130,147,171,179,291,384,388,426,442,529,533,536,35,37,39,40,132,147,169
Data 173,176,183,290,386,389,427,442,482,483,524,534,535,38,40,41,43,132,148
Data 159,166,289,387,389,426,443,478,483,513,514,519,41,45,132,149,159,165,184
Data 189,290,387,390,425,449,475,484,510,514,518,42,45,132,149,158,165,185,194
Data 290,387,392,423,449,473,486,509,513,518,135,165,187,191,197,201,291,388
Data 393,423,449,471,486,509,513,517,534,538,138,164,198,201,291,389,394,421
Data 450,469,488,510,533,538,141,164,290,390,395,418,450,467,487,512,533,538
Data 145,171,290,391,395,414,450,465,487,491,493,513,532,537,155,173,289,394
Data 396,412,451,463,493,514,533,537,156,173,290,395,396,407,452,463,494,515
Data 534,541,160,172,290,404,452,463,495,515,534,537,538,541,164,172,191,198
Data 290,398,414,418,453,463,495,498,501,515,534,537,540,544,166,172,187,199
Data 292,398,404,412,454,462,495,498,502,515,532,533,536,544,167,173,185,212
Data 293,411,455,462,495,497,504,512,531,533,536,543,167,174,177,181,184,212
Data 295,411,455,461,462,464,495,498,506,510,529,532,537,545,171,214,296,410
Data 456,460,461,465,494,499,506,508,528,530,538,545,174,178,180,216,297,409
Data 461,466,494,499,537,546,181,218,298,409,461,466,495,501,527,530,536,538
Data 540,546,182,225,301,324,328,408,462,465,489,491,496,503,526,531,540,545
Data 182,228,303,319,329,407,489,495,498,504,523,533,182,230,330,405,490,497
Data 499,504,521,531,182,230,335,404,492,498,500,504,518,529,180,230,337,403
Data 493,500,517,530,546,548,178,232,336,400,492,504,515,532,534,538,541,543
Data 546,549,157,158,177,231,336,398,496,505,515,532,533,535,537,542,546,549
Data 157,159,176,237,335,376,381,397,497,505,515,529,532,534,546,548,551,562
Data 157,158,176,241,336,375,380,395,498,509,515,529,532,536,546,549,552,567
Data 176,244,336,394,499,510,515,528,531,535,554,571,177,251,337,392,500,510
Data 516,527,531,541,544,553,554,576,589,591,175,253,339,391,502,509,523,526
Data 532,535,536,539,544,547,551,553,556,578,589,593,175,258,340,390,503,509
Data 532,535,537,540,562,580,588,592,175,258,341,390,505,510,532,535,538,540
Data 558,560,565,582,585,591,595,597,176,259,342,391,512,523,558,560,566,582
Data 586,588,595,598,178,259,342,390,509,525,543,546,566,584,179,259,343,391
Data 517,547,569,576,580,584,180,258,343,391,531,535,539,544,570,575,581,587
Data 603,606,180,257,343,393,539,542,582,589,605,609,181,255,344,393,551,557
Data 572,574,608,609,182,254,344,393,406,409,551,564,572,575,12,13,184,253,342
Data 392,406,409,551,564,572,576,12,16,184,251,342,393,404,410,544,547,550,562
Data 571,576,185,251,341,393,404,410,542,562,571,579,616,618,186,251,340,392
Data 400,410,541,565,571,579,616,618,189,251,340,391,398,409,537,568,570,580
Data 617,619,637,0,192,251,340,390,398,408,537,580,635,638,195,250,341,386,398
Data 408,536,581,635,638,195,250,342,384,398,408,535,583,195,249,342,382,398
Data 407,421,423,530,585,612,613,195,248,343,383,397,407,418,420,525,586,612
Data 616,195,248,344,383,396,406,522,588,614,618,194,246,345,384,396,405,522
Data 589,194,240,345,384,397,405,521,590,194,237,345,383,397,405,521,592,194
Data 235,346,381,399,404,521,592,194,234,346,379,521,593,193,234,347,379,522
Data 593,193,234,348,378,523,594,192,233,349,377,524,593,192,231,350,375,524
Data 593,192,230,350,375,525,593,192,230,352,373,525,592,192,227,351,372,525
Data 543,558,591,192,226,352,369,524,541,559,590,191,225,354,365,524,533,560
Data 589,627,629,191,219,562,588,627,631,190,220,563,588,628,633,189,219,568
Data 587,630,638,188,218,570,586,630,637,189,215,574,581,628,637,188,210,629
Data 635,188,210,577,584,626,634,188,207,577,584,624,633,188,207,578,584,623
Data 630,5,7,187,205,579,582,620,628,6,7,187,205,617,626,187,204,616,625,185
Data 201,616,624,185,204,617,620,185,204,185,201,442,446,185,200,442,445,186
Data 198,186,198,213,218,186,199,214,216,188,200,189,205,252,257,193,205,255
Data 257,237,241,215,218,212,218,212,220,207,219,205,216,545,551,203,215,497
Data 511,516,528,544,566,196,214,409,425,466,577,196,211,394,444,460,582,192
Data 210,379,446,456,587,593,601,185,189,192,210,332,344,369,607,184,211,306
Data 618,173,178,184,212,298,625,137,158,171,212,295,624,100,113,127,213,287
Data 620,97,114,125,213,279,617,70,88,95,211,275,613,54,209,271,610,0,219,262
Data 610,627,226,256
Rem -- SYMBOL TABLE -- (ala Clark and Tilley)
Rem A0 = SEMI-MAJOR axis
Rem A9 = Azimuth
Rem Cn = COSines, C(J,K) also
Rem E0 = eccentricity of orbit
Rem E8 = observer horizion
Rem E9 = satellite elevation
Rem G0 = GM of Earth
Rem G1 = Sidereal/Solar
Rem G2 = New Year's sidereal time
Rem G7 = GHA Aries
Rem H1 = Hours duration
Rem H3 = Hour epoch
Rem H4 = Hour
Rem H9 = observer height
Rem K0 = initial orbit #
Rem K = orbit counter
Rem K7 = INT(T)
Rem L5 = SSP LATITUDE
Rem L8 = GEOCENTRIC latitude
Rem L9 = observer longitude
Rem M = mean anomaly
Rem M0 = mean anomaly of ref epoch
Rem M3 = ref epoch minutes
Rem M4 = integer minutes
Rem M5 = difference in Transcendental Eq.
Rem N0 = mean motion
Rem O, O0 = R.A.A.N.
Rem P0,P1,P2 variations on a theme of PI
Rem Q,Q0 = total orbits
Rem R = ? in plane of orbit
Rem R5 = range
Rem R6 = previous range
Rem R9 intermediate for GEOCENTRICs
Rem Ss used for SIN
Rem T0 = ref time in orbit days
Rem W, W0 arg of perigee
Rem W5 = SSP W. long.
Rem W9 = observers W. long
Rem X0,Y0,R coord in plane of orbit
Rem X1,Y1,Z1 " " INERTIAL CELESTIAL
Rem X,Y,Z in GEOCENTRIC coordinates
Rem X9,Y9,R9 are observer's GEOCENTRIC coordinates
Rem X5,Y5,Z5 ==> R5 vector from observer to satellite
Rem X8,Y8,Z8 are observer's LOCAL Coordinates
SHAR_EOF
cat << \SHAR_EOF > orbitals.dat
The most current orbital elements from the NASA Prediction Bulletins are
carried on the Celestial RCP/M, (513) 427-0674, and are updated several times
weekly. Documentation and tracking software are also available on this
system.
The Celestial RCP/M may be accessed 24 hours/day at 300, 1200, or 2400 baud
using 8 data bits, 1 stop bit, no parity.
- Current NASA Prediction Bulletins #546 -
Alouette 1
1 00424U 89206.16793576 0.00000172 19720-3 0 2241
2 00424 80.4633 248.4238 0024150 36.2692 324.0085 13.67172480338002
SOLRAD R/B
1 00727U 64001 A 89198.56177170 .00000164 00000-0 15604-3 0 2797
2 00727 69.9022 30.4841 0011954 55.4275 304.7932 13.93553262297324
Cos 185 R/B
1 03019U 67104 B 89198.54646773 .00004760 00000-0 32780-3 0 3891
2 03019 64.0624 18.9846 0219843 225.3173 132.9859 14.89572043109609
ATS 3
1 03029U 67111 A 89187.56917568 -.00000074 00000-0 99999-4 0 2365
2 03029 12.7757 24.1274 0015540 194.3702 165.6963 1.00272176 79330
Cosmos 398
1 04966U 71 16 A 89199.72951283 -.00016207 00000-0 -10554-3 0 8303
2 04966 51.5658 319.5495 2511049 266.1090 65.2085 10.54262717555713
LAGEOS
1 08820U 89206.77237598 0.00000005 0 8285
2 08820 109.8345 243.2992 0044897 307.8156 51.8574 6.38664132 53099
GOES 2
1 10061U 89193.69270730 -.00000018 0 2869
2 10061 7.2367 67.9134 0005870 97.5785 262.2768 1.00279674 5639
GPS-0001
1 10684U 89202.85871690 0.00000011 10000-3 0 1698
2 10684 63.6023 99.7113 0108902 198.3317 161.3557 2.00559884 69221
GPS-0002
1 10893U 89201.32278087 -.00000027 0 87
2 10893 64.4770 340.6383 0154404 28.1763 332.6305 2.00549743 82010
GOES 3
1 10953U 89198.73487946 0.00000088 10000-3 0 6896
2 10953 6.1136 70.5293 0006800 259.6167 100.2746 1.00274815 1248
SeaSat 1
1 10967U 89197.23438422 0.00000977 38799-3 0 1437
2 10967 108.0115 347.4202 0002168 235.2265 124.8673 14.34718776578251
GPS-0003
1 11054U 89204.62709625 -.00000027 0 653
2 11054 64.0167 336.9646 0060222 114.0010 246.6680 2.00561675 79092
GPS-0004
1 11141U 89204.72662801 0.00000010 0 1804
2 11141 63.5822 99.6011 0057467 321.4893 38.1454 2.00571030 77794
NOAA 6
1 11416U 89200.05544746 0.00000829 36445-3 0 8753
2 11416 98.5094 196.1955 0012703 22.3345 337.8387 14.25872183522445
Solar Max
1 11703U 89201.89658051 0.00059458 78802-3 0 285
2 11703 28.4937 40.2847 0000586 68.4626 291.6007 15.56850600525095
GPS-0006
1 11783U 89202.68997067 -.00000027 0 9317
2 11783 63.9528 336.6909 0143336 61.9063 299.5654 2.00568321 67691
GOES 4
1 11964U 89198.09983592 -.00000043 0 594
2 11964 5.5501 73.3770 0033168 94.9661 265.3246 0.99228840 2329
GOES 5
1 12472U 89191.00000000 -.00000249 10000-3 0 7407
2 12472 2.6193 79.9038 0001682 120.2420 23.8683 1.00267489 28808
SME
1 12887U 81100 A 89198.60724050 .00015696 00000-0 53802-3 0 2468
2 12887 97.6841 225.6881 0003215 118.0081 242.1476 15.30277523429809
UOSAT 1
1 12888U 89204.08152074 0.00099250 89255-3 0 6439
2 12888 97.5502 260.2192 0000794 345.5117 14.5401 15.67921102434601
Meteor 2-08
1 13113U 89204.00241408 0.00000167 14110-3 0 6564
2 13113 82.5370 30.2903 0015066 327.4850 32.5383 13.84020055370192
Salyut 7
1 13138U 89206.08301020 0.00004463 10793-3 0 6700
2 13138 51.6084 131.6728 0001507 128.3129 231.8984 15.43251658414047
LandSat 4
1 13367U 82 72 A 89198.64210169 .00001099 00000-0 25410-3 0 257
2 13367 98.2119 261.8410 0003570 97.4120 262.7608 14.57119054372585
Meteor 2-09
1 13718U 89198.61733429 0.00000206 10247-3 0 7970
2 13718 81.2447 251.7785 0054867 272.8515 86.6395 14.13238180339859
IRAS
1 13777U 89199.57374005 -.00000334 -22041-3 0 6598
2 13777 99.0426 36.2509 0012030 223.9617 136.0646 13.98617482 306
TDRS 1
1 13969U 83 26 B 89193.61106535 -.00000183 00000-0 00000 0 0 8197
2 13969 3.6420 68.4417 0002893 137.6679 225.5675 1.00123858 89665
GOES 6
1 14050U 89197.78372817 0.00000114 0 9878
2 14050 1.3661 82.3935 0001858 111.0113 248.3075 1.00287640 6901
OSCAR 10
1 14129U 89202.10971599 -.00000084 0 4175
2 14129 26.0887 253.9637 6053670 60.6568 346.2092 2.05883104 17918
GPS-0008
1 14189U 89204.77202103 0.00000010 10000-3 0 6472
2 14189 63.2041 98.2080 0136478 215.3731 143.7755 2.00567719 44174
Meteor 2-10
1 14452U 89204.06734195 0.00000522 21975-3 0 7515
2 14452 81.1648 257.5931 0095433 354.0213 5.9821 14.22260082297640
LandSat 5
1 14780U 89207.04971353 0.00000739 17364-3 0 8416
2 14780 98.1656 268.5478 0003865 111.5435 248.6087 14.57132172287228
UOSAT 2
1 14781U 84 21 B 89199.62625717 .00001626 00000-0 32042-3 0 4813
2 14781 98.0027 257.5120 0012166 219.4269 140.6050 14.63764368287146
LDEF
1 14898U 89203.36779891 0.00028572 43127-3 0 9142
2 14898 28.5060 288.4742 0000305 293.9869 66.0580 15.53295791296922
GPS-0009
1 15039U 89203.83458933 0.00000009 0 7055
2 15039 62.7617 97.2295 0012949 206.4440 153.6685 2.00568700 37437
Meteor 2-11
1 15099U 89198.39046606 0.00000145 12119-3 0 9573
2 15099 82.5295 342.3507 0013080 147.4673 212.7293 13.83679414254299
GPS-0010
1 15271U 89205.72943660 -.00000027 0 6756
2 15271 63.3556 336.3361 0100019 321.0446 38.0588 2.00566524 34584
Cosmos 1602
1 15331U 89194.80061499 0.00002232 32106-3 0 546
2 15331 82.5390 313.8830 0025148 1.4155 358.7130 14.75782144258144
NOAA 9
1 15427U 89196.47764042 0.00000488 28734-3 0 4043
2 15427 99.1448 183.9754 0014425 233.1046 126.8803 14.12086380236448
Meteor 2-12
1 15516U 89204.60370140 0.00000358 31246-3 0 1000
2 15516 82.5350 275.7939 0017505 17.9536 342.2241 13.84145796226099
Cosmos 1686
1 16095U 89205.69444412 0.00020490 46125-3 0 3190
2 16095 51.6090 133.5796 0001120 115.5547 244.4815 15.43260670215088
GPS-0011
1 16129U 89205.88500538 0.00000010 0 3410
2 16129 63.7328 98.1204 0118094 149.8658 210.8873 2.00563934 27794
Meteor 3-1
1 16191U 89204.98012498 0.00000043 10000-3 0 8418
2 16191 82.5457 209.7207 0018896 204.8083 155.2143 13.16870606180362
Meteor 2-13
1 16408U 89204.97574168 0.00000112 94947-4 0 5153
2 16408 82.5350 190.3584 0015447 192.8233 167.2520 13.84191299180642
Mir
1 16609U 89205.39540184 -.00008640 -11215-3 0 9543
2 16609 51.6196 177.4198 0009423 191.1241 168.9523 15.57421363196968
SPOT 1
1 16613U 89207.05108603 0.00000626 31158-3 0 5390
2 16613 98.7367 281.0995 0001802 81.9325 278.2091 14.20034337 17646
Meteor 2-14
1 16735U 89205.02762104 0.00000109 93312-4 0 3094
2 16735 82.5350 217.1531 0012761 270.4679 89.5000 13.83938849159552
Cosmos 1766
1 16881U 89207.05339059 0.00001437 20739-3 0 6775
2 16881 82.5248 2.0576 0022790 337.5195 22.5000 14.75440085161025
EGP
1 16908U 89202.18032835 -.00000038 77810-5 0 1479
2 16908 50.0064 193.5888 0011257 74.2487 285.9588 12.44379520133640
FO-12
1 16909U 89197.10014353 -.00000025 10000-3 0 1630
2 16909 50.0167 209.4498 0011078 60.4152 299.7766 12.44400597133006
NOAA 10
1 16969U 89200.21509624 0.00000598 28162-3 0 2513
2 16969 98.6366 230.0955 0013415 153.2927 206.8943 14.23090983148495
Meteor 2-15
1 17290U 89204.23805203 0.00000216 18513-3 0 2728
2 17290 82.4688 124.8780 0012784 154.3441 205.8358 13.83741427128609
MOS-1
1 17527U 87 18 A 89199.02136141 -.00000388 00000-0 -27596-3 0 1872
2 17527 99.1484 270.2132 0000531 56.6570 303.4662 13.94831938122675
GOES 7
1 17561U 87 22 A 89196.48328078 -.00000046 00000-0 99999-4 0 3008
2 17561 0.0171 117.6897 0002124 328.5324 273.7952 1.00272540 2048
Kvant
1 17845U 89205.58789710 0.00027395 37108-3 0 8192
2 17845 51.6217 176.4560 0008890 193.4524 166.6002 15.57436073133268
DMSP B5D2-3
1 18123U 87 53 A 89197.02695732 .00000640 00000-0 35987-3 0 3478
2 18123 98.8252 27.1514 0013117 260.6515 99.3174 14.13471492106904
RS-10/11
1 18129U 89206.02614146 0.00000078 79289-4 0 8262
2 18129 82.9239 210.1998 0010652 312.2194 47.8085 13.71991825104588
Cosmos 1867
1 18187U 87 60 A 89198.97796186 .00000132 00000-0 69311-4 0 8858
2 18187 65.0147 296.5794 0019568 256.3044 103.5840 14.29382746105525
Cosmos 1870
1 18225U 89206.76974459 0.00141952 11453-4 16950-3 0 1552
2 18225 71.8628 310.9157 0016331 252.2513 107.7208 16.07994556117480
Meteor 2-16
1 18312U 89204.42835747 0.00000219 18868-3 0 2952
2 18312 82.5524 190.8171 0013701 90.0786 270.1941 13.83494008 97529
Meteor 2-17
1 18820U 89205.69077344 0.00000176 14776-3 0 1356
2 18820 82.5427 250.7488 0016955 159.4792 200.7026 13.84186077 74874
DMSP B5D2-4
1 18822U 88 6 A 89198.42622926 .00000551 00000-0 27225-3 0 2468
2 18822 98.6986 78.6651 0006110 152.8227 207.3284 14.20830029 75295
AO-13
1 19216U 89186.15508008 -.00000132 10000-3 0 382
2 19216 57.2070 200.8551 6748913 207.0433 90.2906 2.09703317 8118
OKEAN 1
1 19274U 88 56 A 89199.05309436 .00002434 00000-0 35763-3 0 4351
2 19274 82.5184 108.0916 0024166 128.8964 231.4413 14.74959851 55635
Meteor 3-2
1 19336U 89204.81473383 0.00000391 10000-2 0 2226
2 19336 82.5418 149.7562 0019050 54.2703 306.0096 13.16855216 47735
NOAA 11
1 19531U 89199.89876582 0.00000494 29490-3 0 1061
2 19531 98.9414 143.7651 0012043 138.5761 221.6325 14.11072946 41948
TDRS 3
1 19548U 88 91 B 89153.77764324 .00000129 00000-0 99999-4 0 261
2 19548 0.5410 85.9584 0002050 10.4654 263.5580 1.00263057 1649
GPS-0014
1 19802U 89 13 A 89195.92402568 .00000015 00000-0 99999-4 0 489
2 19802 55.1018 210.7161 0066687 157.4981 202.8516 2.00556819 2987
Meteor 2-18
1 19851U 89204.99868031 0.00000117 10000-3 0 589
2 19851 82.5237 129.9222 0013482 200.0593 160.0041 13.83820641 20175
TDRS 4
1 19883U 89 21 B 89193.30721528 -.00000234 00000-0 99999-4 0 201
2 19883 0.4184 71.6153 0001726 52.2881 235.9737 1.00264167 477
Cosmos 2022
1 20024U 89180.39981994 -.00000011 10000-2 0 363
2 20024 64.8272 50.8719 0001867 255.3129 104.7148 2.13102677 6110
Cosmos 2023
1 20025U 89180.69329080 -.00000011 10000-3 0 337
2 20025 64.8449 50.8407 0013705 210.6426 149.3398 2.13102719 639
Cosmos 2024
1 20026U 89180.38648897 -.00000011 10000-3 0 312
2 20026 64.8327 50.8698 0008813 267.3366 92.6243 2.13204691 623
SuperBird A
1 20040U 89183.78104506 -.00000099 10000-3 0 180
2 20040 0.0262 313.9524 0003825 147.9338 258.1480 1.00273104 239
1989 041C
1 20042U 89185.08517834 0.00030059 39919-2 0 287
2 20042 6.9331 37.4445 7284280 200.3317 100.7896 2.29417718 558
Cosmos 2026
1 20045U 89182.87143968 0.00000147 14176-3 0 337
2 20045 82.9397 343.5786 0038435 224.9740 134.8304 13.75019694 3391
1989 042B
1 20046U 89190.25933410 -.00005554 -56739-2 0 517
2 20046 82.9417 338.0442 0035026 199.2664 160.7174 13.76469147 4415
Molniya3-35
1 20052U 89189.80933893 0.00000326 -81454-3 0 444
2 20052 62.9521 99.8751 7379264 288.3629 9.3770 2.00620985 616
1989 043D
1 20055U 89187.82942194 0.00000550 19192-2 0 268
2 20055 62.8484 100.2186 7414419 288.3220 9.1933 1.95983490 552
GPS-0013
1 20061U 89195.11831124 -.00000029 0 285
2 20061 54.5868 29.5793 0080698 163.2427 197.0849 2.00573534 713
1989 044B
1 20062U 89193.27933477 0.18331712 -23867-4 49193-3 0 674
2 20062 30.2951 166.4880 0064540 2.3773 357.7413 16.35924744 3699
1989 044C
1 20063U 89190.62410034 0.00111825 17032-4 12205-2 0 390
2 20063 37.5403 7.2226 6012784 224.5458 67.5657 4.12779176 1205
Cosmos 2027
1 20064U 89180.22022443 0.00008604 36818-3 0 107
2 20064 65.8385 25.6376 0024329 340.4779 20.7342 15.23081660 2240
1989 045B
1 20065U 89189.58668525 0.00012737 51370-3 0 330
2 20065 65.8410 356.1109 0028402 352.2314 7.8374 15.24711048 3678
Raduga 1-1
1 20083U 89206.78146626 0.00000150 10000-3 0 381
2 20083 1.4049 273.2133 0005585 348.2342 12.0835 1.00271194 344
1989 048D
1 20086U 89194.20510965 -.00000025 10000-3 0 76
2 20086 1.4319 273.6399 0021177 326.9784 33.7202 0.97889488 224
Nadezhda
1 20103U 89207.11643209 0.00000084 83861-4 0 170
2 20103 82.9622 165.3359 0036332 225.3657 134.4533 13.73490787 2954
1989 050B
1 20104U 89203.09208317 0.00000006 0 107
2 20104 82.9619 168.2739 0032035 214.1965 145.7130 13.74883091 2390
Gorizont 18
1 20107U 89206.53673588 -.00000252 10000-3 0 219
2 20107 1.4679 275.1362 0002553 36.6151 324.4230 1.00278437 204
1989 052D
1 20110U 89198.38268624 -.00000040 10000-3 0 65
2 20110 1.5129 275.7936 0028263 76.8720 284.4159 1.03064188 121
Olympus
1 20122U 89206.45833329 -.00000133 10000-3 0 137
2 20122 0.3111 116.5200 0039730 161.1000 186.6730 0.99668381 02
1989 053B
1 20123U 89202.09859699 0.00114392 97589-2 0 130
2 20123 6.1734 103.5478 7316792 185.4997 162.2780 2.26199326 227
Cosmos 2030
1 20124U 89207.14165407 0.01706290 29258-4 32748-3 0 402
2 20124 67.1451 96.1609 0067734 59.2471 301.7086 16.24824071 2182
1989 055A
1 20134U 89206.75123345 0.00119290 52645-5 19047-3 0 225
2 20134 82.5685 101.3308 0010288 271.6879 88.3357 16.03507280 1187
1989 056A
1 20136U 89206.77059950 0.00212921 26538-4 38047-3 0 215
2 20136 50.5522 85.5202 0092144 44.9697 315.8559 15.93565154 1173
1989 057A
1 20145U 89206.75002318 0.00051150 -19215-7 10033-3 0 239
2 20145 82.3116 93.3835 0097667 75.8591 285.3595 15.91659320 868
1989 058A
1 20147U 89206.79664603 -.00025164 -41389-3 0 99
2 20147 65.0243 330.8234 0009661 269.1416 90.7071 15.52051461 284
1989 059A
1 20149U 89207.11359027 0.00018128 19706-1 0 73
2 20149 82.9394 87.6575 0030268 276.4523 83.3026 13.72429037 111
1989 059B
1 20150U 89207.03988152 0.00034193 36088-1 0 42
2 20150 82.9381 87.7138 0023133 269.7533 90.1012 13.74127805 92
--
Dr TS Kelso Asst Professor of Space Operations
tkelso@blackbird.afit.af.mil Air Force Institute of Technology
SHAR_EOF
# End of shell archive
exit 0