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