Astro/star.cxx

   1 /**************************************************************************
   2  * star.cxx
   3  * Written by Durk Talsma. Originally started October 1997, for distribution
   4  * with the FlightGear project. Version 2 was written in August and
   5  * September 1998. This code is based upon algorithms and data kindly
   6  * provided by Mr. Paul Schlyter. (pausch@saaf.se).
   7  *
   8  * This program is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU General Public License as
  10  * published by the Free Software Foundation; either version 2 of the
  11  * License, or (at your option) any later version.
  12  *
  13  * This program is distributed in the hope that it will be useful, but
  14  * WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU General Public License
  19  * along with this program; if not, write to the Free Software
  20  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21  *
  22  * $Id$
  23  * (Log is kept at end of this file)
  24  **************************************************************************/
  25
  26 #ifdef __BORLANDC__
  27 #  define exception c_exception
  28 #endif
  29 #include <math.h>
  30
  31 #include "star.hxx"
  32
  33 /*************************************************************************
  34  * Star::Star(fgTIME *t)
  35  * Public constructor for class Star
  36  * Argument: The current time.
  37  * the hard coded orbital elements our sun are passed to
  38  * CelestialBody::CelestialBody();
  39  * note that the word sun is avoided, in order to prevent some compilation
  40  * problems on sun systems
  41  ************************************************************************/
  42 Star::Star(fgTIME *t) :
  43   CelestialBody (0.000000,  0.0000000000,
  44                  0.0000,    0.00000,
  45                  282.9404,  4.7093500E-5,
  46                  1.0000000, 0.000000,
  47                  0.016709,  -1.151E-9,
  48                  356.0470,  0.98560025850, t)
  49 {
  50 }
  51 /*************************************************************************
  52  * void Jupiter::updatePosition(fgTIME *t, Star *ourSun)
  53  *
  54  * calculates the current position of our sun.
  55  *************************************************************************/
  56 void Star::updatePosition(fgTIME *t)
  57 {
  58   double
  59     actTime, eccAnom,
  60     xv, yv, v, r,
  61     xe, ye, ze, ecl;
  62
  63   updateOrbElements(t);
  64
  65   actTime = fgCalcActTime(t);
  66   ecl = DEG_TO_RAD * (23.4393 - 3.563E-7 * actTime); // Angle in Radians
  67   eccAnom = fgCalcEccAnom(M, e);  // Calculate the eccentric Anomaly (also known as solving Kepler's equation)
  68
  69   xv = cos(eccAnom) - e;
  70   yv = sqrt (1.0 - e*e) * sin(eccAnom);
  71   v = atan2 (yv, xv);                   // the sun's true anomaly
  72   distance = r = sqrt (xv*xv + yv*yv);  // and its distance
  73
  74   longitude = v + w; // the sun's true longitude
  75
  76   // convert the sun's true longitude to ecliptic rectangular
  77   // geocentric coordinates (xs, ys)
  78   xs = r * cos (longitude);
  79   ys = r * sin (longitude);
  80
  81   // convert ecliptic coordinates to equatorial rectangular
  82   // geocentric coordinates
  83
  84   xe = xs;
  85   ye = ys * cos (ecl);
  86   ze = ys * sin (ecl);
  87
  88   // And finally, calculate right ascension and declination
  89   rightAscension = atan2 (ye, xe);
  90   declination = atan2 (ze, sqrt (xe*xe + ye*ye));
  91 }
  92
  93
  94
  95
  96