home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume22 / n3emo-orbit / patch02 next >
Encoding:
Text File  |  1991-09-13  |  4.9 KB  |  168 lines
  1. Newsgroups: comp.sources.misc
  2. From: Bob Berger <rwb@vi.ri.cmu.edu>
  3. Subject:  v22i105:  n3emo-orbit - track earth satellites, Patch02
  4. Message-ID: <1991Sep10.220229.13205@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: d8c2b34458bd80184ff7a8c8980c23bf
  6. Date: Tue, 10 Sep 1991 22:02:29 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Bob Berger <rwb@vi.ri.cmu.edu>
  10. Posting-number: Volume 22, Issue 105
  11. Archive-name: n3emo-orbit/patch02
  12. Environment: UNIX
  13. Patch-To: n3emo-orbit: Volume 11, Issue 20
  14.  
  15. Below is a patch to N3EMO, originally posted to comp.sources.misc in 
  16. volume11. You will need to get the following articles in order to apply
  17. this patch:
  18.  
  19. v11i020   n3emo-orbit/part01    orbit: track earth satellites
  20. v14i095   n3emo-orbit/patch01   Patch to orbit3.7
  21.  
  22.   The  N3EMO  orbit  program  simulates  the  motions  of earth satellites.
  23. The program was written for use by amateur radio operators, but is useful to
  24. others, such as astronomers  interested  in observing artificial satellites,
  25. space enthusiasts tracking shuttle missions, and meteorologists using  weather
  26. satellites.  The program is distributed in source form in the C language, and
  27. has been used on a wide variety of computers, from micros to mainframes.
  28.  
  29. ------
  30. diff -c ../orbit3.9/orbit.c ./orbit.c
  31. *** ../orbit3.9/orbit.c    Tue Sep 10 14:25:33 1991
  32. --- ./orbit.c    Tue Sep 10 14:27:28 1991
  33. ***************
  34. *** 1,7 ****
  35. ! /* Copyright (c) 1986,1987,1988,1989,1990 Robert W. Berger N3EMO
  36.      May be freely distributed, provided this notice remains intact. */
  37.   
  38.   /* Change Log
  39.       4/2/1990    v3.9 Misc bug fixes. Changed ElementSet and
  40.               EpochRev to unsigned longs in nasa.c. Allow
  41.               satellite names with spaces in mode.dat.
  42. --- 1,13 ----
  43. ! /* Copyright (c) 1986,1987,1988,1989,1990,1991 Robert W. Berger N3EMO
  44.      May be freely distributed, provided this notice remains intact. */
  45.   
  46.   /* Change Log
  47. +     8/9/1991    v3.9.2 Fix orbital decay correction (it was
  48. +             underestimated by a factor of 2 in previous versions).
  49. + 
  50. +     9/25/1990    v3.9.1 Ignore trailing whitespace after 
  51. +                    satellite names.
  52. + 
  53.       4/2/1990    v3.9 Misc bug fixes. Changed ElementSet and
  54.               EpochRev to unsigned longs in nasa.c. Allow
  55.               satellite names with spaces in mode.dat.
  56. ***************
  57. *** 101,107 ****
  58.                   char ModeStr[20];
  59.                  }  ModeRec;
  60.    
  61. ! char VersionStr[] = "N3EMO Orbit Simulator  v3.9";
  62.    
  63.       /*  Keplerian Elements and misc. data for the satellite              */
  64.       double  EpochDay;                   /* time of epoch                 */
  65. --- 107,113 ----
  66.                   char ModeStr[20];
  67.                  }  ModeRec;
  68.    
  69. ! char VersionStr[] = "N3EMO Orbit Simulator  v3.9.2";
  70.    
  71.       /*  Keplerian Elements and misc. data for the satellite              */
  72.       double  EpochDay;                   /* time of epoch                 */
  73. ***************
  74. *** 236,242 ****
  75. --- 242,264 ----
  76.       return 0;
  77.   }
  78.   
  79. + /* Strip trailing whitespace from a string */
  80. + StripTrailing(s)
  81. + char *s;
  82. + {
  83. +     char *tmp;
  84.   
  85. +     tmp = s;
  86. +     while (*tmp != '\0')
  87. +     tmp++;
  88. + 
  89. +     tmp--;
  90. +     while (*tmp == ' ' || *tmp == '\t')
  91. +     tmp--;
  92. + 
  93. +     tmp[1] = '\0';
  94. + }
  95. + 
  96.   GetSatelliteParams()
  97.   {
  98.       FILE *InFile;
  99. ***************
  100. *** 255,260 ****
  101. --- 277,283 ----
  102.       {
  103.       printf("Letter or satellite name :");
  104.       gets(SatName);
  105. +     StripTrailing(SatName);
  106.   
  107.       if ((InFile = fopen("kepler.dat","r")) == 0)
  108.           {
  109. ***************
  110. *** 280,285 ****
  111. --- 303,309 ----
  112.           }
  113.           found = 1;
  114.           strncpy(SatName,&str[11],strlen(str)-12);
  115. +         StripTrailing(SatName);
  116.           }
  117.           
  118.        else 
  119. ***************
  120. *** 289,294 ****
  121. --- 313,320 ----
  122.               if (! fgets(str,100,InFile))
  123.                   break;    /* EOF */
  124.   
  125. +         StripTrailing(str);
  126. + 
  127.               if (strncmp(str,"Satellite: ",11) == 0)
  128.              if (cstrncmp(SatName,&str[11],strlen(SatName)) == 0)
  129.               found = 1;
  130. ***************
  131. *** 380,385 ****
  132. --- 406,412 ----
  133.           {
  134.       if (! fgets(str,100,InFile))
  135.           break;    /* EOF */
  136. +     StripTrailing(str);
  137.        if (strncmp(str,"Satellite: ",11) == 0)
  138.          if (cstrncmp(SatName,&str[11],strlen(SatName)) == 0)
  139.           found = 1;
  140. ***************
  141. *** 567,575 ****
  142.           {
  143.    
  144.           AverageMotion = epochMeanMotion
  145. -        + (CurrentTime-EpochDay)*OrbitalDecay/2;
  146. -         CurrentMotion = epochMeanMotion
  147.          + (CurrentTime-EpochDay)*OrbitalDecay;
  148.   
  149.           SemiMajorAxis = 331.25 * exp(2*log(MinutesPerDay/CurrentMotion)/3);
  150.    
  151. --- 594,602 ----
  152.           {
  153.    
  154.           AverageMotion = epochMeanMotion
  155.          + (CurrentTime-EpochDay)*OrbitalDecay;
  156. +         CurrentMotion = epochMeanMotion
  157. +        + (CurrentTime-EpochDay)*OrbitalDecay*2;
  158.   
  159.           SemiMajorAxis = 331.25 * exp(2*log(MinutesPerDay/CurrentMotion)/3);
  160.    
  161.  
  162. exit 0 # Just in case...
  163. -- 
  164. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  165. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  166. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  167. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  168.