home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / aus / radio / amsat / 526 < prev    next >
Encoding:
Internet Message Format  |  1992-12-22  |  3.1 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!howland.reston.ans.net!paladin.american.edu!darwin.sura.net!spool.mu.edu!umn.edu!math.fu-berlin.de!informatik.tu-muenchen.de!regent!monu1.cc.monash.edu.au!monu6!escargot!goanna!munnari.oz.au!metro!sphinx!eram!dave
  2. From: dave@eram.esi.COM.AU (Dave Horsfall)
  3. Newsgroups: aus.radio.amsat
  4. Subject: SIDEREAL ANGLES FOR W3IWI PROGRAM
  5. Message-ID: <2540@eram.esi.COM.AU>
  6. Date: 21 Dec 92 00:26:54 GMT
  7. Distribution: aus
  8. Organization: Pacific ESI, Sydney, AUSTRALIA
  9. Lines: 69
  10.  
  11. HR AMSAT NEWS SERVICE BULLETIN 354.03 FROM AMSAT HQ
  12. SILVER SPRING, MD DECEMBER 19, 1992   BID: $ANS-354.03
  13. TO ALL RADIO AMATEURS BT
  14.  
  15. G3RUH Provides Sidereal Angles Needed For The W3IWI Tracking Program
  16.  
  17. AMSAT-OSCAR-13 (AO-13) Ground Station operator, James Miller (G3RUH), is
  18. aware that there are a great number of hams who currently are using the
  19. orginal "IWI" satellite program written by Tom Clark (W3IWI).  One of the
  20. important input parameters needed to run Tom's program is the "sidereal"
  21. angle or the "G2" constant inside the progam.  It is necessary for one to
  22. update it at the beginning of each year.  The following is the listing of
  23. this short BASIC computer program which generated the table.
  24.  
  25. LIST
  26.  
  27.  T$="B.GHAA(0)": REM     GMST of 0000 utc Calculator.  Based on
  28.  REM                   1984 Astronomical  Almanac Pages B6 & S13.
  29.  REM
  30.  REM Version 1.1   Last modified 1985 May 08 by JRM
  31.  REM
  32.  REM                 (C)1991 J R Miller G3RUH
  33.  REM
  34.  REM GMST =24110.54841 + TU*(8640184.812866+TU*(0.093104+TU*(-6.2E-6)))
  35.  REM (seconds).
  36.  REM
  37.  REM  where Tu is the interval of time, (measured in Julian centuries
  38.  REM  of 36525 days of universal time), elapsed since the epoch
  39.  REM  2000 Jan 1.5   i.e TU = (JD - 2451545.0)/36525
  40.  REM
  41.  FI%=&80F: FF%=&2060F: REM  Print formats;  #########   #.######
  42.  :
  43.  PRINT"Program ";T$;"    GHAA for Year yyyy Jan 0.0     (C)1991 G3RUH"
  44.  PRINT
  45.  PRINT"           YEAR      GHAA deg        GMST rev"
  46.  PRINT"         -------------------------------------"
  47.  FOR YR = 1988 TO 2000
  48.    DD = FND0(YR)-(FND0(2000)+1.5): REM Days since 2000 Jan 1.5
  49.    TU = DD/36525
  50.    G1 = TU*(184.812866+TU*(0.093104+TU*(-6.2E-6)))/86400 :REM Small part
  51.    G2 = TU*100                                    :REM Big part
  52.    G3 = 0.2790572733                              :REM 24110.54841/86400
  53.    GMST = G1+G2+G3: GMST=GMST-INT(GMST): GHAA=GMST*360
  54.    @%=FI%: PRINT YR;: @%=FF%: PRINT GHAA,GMST
  55.    NEXT
  56.  STOP
  57.  DEF FND0(YR)=INT((YR-1)*365.25)
  58.  
  59. RUN
  60.  
  61. Program B.GHAA(0)    GHAA for Year yyyy Jan 0.0     (C)1991 G3RUH
  62.  
  63.            YEAR      GHAA deg        GMST rev
  64.          -------------------------------------
  65.            1993      99.667481       0.276854
  66.            1994      99.428769       0.276191
  67.            1995      99.190057       0.275528
  68.            1996      98.951346       0.274865
  69.            1997      99.698282       0.276940
  70.            1998      99.459570       0.276277
  71.            1999      99.220859       0.275613
  72.            2000      98.982147       0.274950
  73.  
  74. [The AMSAT News Service (ANS) would like James Miller (G3RUH) for this
  75. bulletin item.]
  76.  
  77. -- 
  78. Dave Horsfall (VK2KFU)         VK2KFU @ VK2RWI.NSW.AUS.OC
  79. dave@esi.COM.AU                ...munnari!esi.COM.AU!dave
  80.