simgear/ephemeris/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 library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Library General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Library 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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  21  *
  22  * $Id$
  23  **************************************************************************/
  24
  25 #include <math.h>
  26
  27 #include <simgear/debug/logstream.hxx>
  28
  29 #include "star.hxx"
  30
  31
  32 /*************************************************************************
  33  * Star::Star(double mjd)
  34  * Public constructor for class Star
  35  * Argument: The current time.
  36  * the hard coded orbital elements our sun are passed to
  37  * CelestialBody::CelestialBody();
  38  * note that the word sun is avoided, in order to prevent some compilation
  39  * problems on sun systems
  40  ************************************************************************/
  41 Star::Star(double mjd) :
  42     CelestialBody (0.000000,  0.0000000000,
  43                    0.0000,    0.00000,
  44                    282.9404,  4.7093500E-5,
  45                    1.0000000, 0.000000,
  46                    0.016709,  -1.151E-9,
  47                    356.0470,  0.98560025850, mjd)
  48 {
  49     distance = 0.0;
  50 }
  51
  52 Star::Star() :
  53     CelestialBody (0.000000,  0.0000000000,
  54                    0.0000,    0.00000,
  55                    282.9404,  4.7093500E-5,
  56                    1.0000000, 0.000000,
  57                    0.016709,  -1.151E-9,
  58                    356.0470,  0.98560025850)
  59 {
  60     distance = 0.0;
  61 }
  62
  63 Star::~Star()
  64 {
  65 }
  66
  67
  68 /*************************************************************************
  69  * void Star::updatePosition(double mjd, Star *ourSun)
  70  *
  71  * calculates the current position of our sun.
  72  *************************************************************************/
  73 void Star::updatePosition(double mjd)
  74 {
  75   double
  76     actTime, eccAnom,
  77     xv, yv, v, r,
  78     xe, ecl;
  79
  80   updateOrbElements(mjd);
  81
  82   actTime = sgCalcActTime(mjd);
  83   ecl = SGD_DEGREES_TO_RADIANS * (23.4393 - 3.563E-7 * actTime); // Angle in Radians
  84   eccAnom = sgCalcEccAnom(M, e);  // Calculate the eccentric Anomaly (also known as solving Kepler's equation)
  85
  86   xv = cos(eccAnom) - e;
  87   yv = sqrt (1.0 - e*e) * sin(eccAnom);
  88   v = atan2 (yv, xv);                   // the sun's true anomaly
  89   distance = r = sqrt (xv*xv + yv*yv);  // and its distance
  90
  91   lonEcl = v + w; // the sun's true longitude
  92   latEcl = 0;
  93
  94   // convert the sun's true longitude to ecliptic rectangular
  95   // geocentric coordinates (xs, ys)
  96   xs = r * cos (lonEcl);
  97   ys = r * sin (lonEcl);
  98
  99   // convert ecliptic coordinates to equatorial rectangular
 100   // geocentric coordinates
 101
 102   xe = xs;
 103   ye = ys * cos (ecl);
 104   ze = ys * sin (ecl);
 105
 106   // And finally, calculate right ascension and declination
 107   rightAscension = atan2 (ye, xe);
 108   declination = atan2 (ze, sqrt (xe*xe + ye*ye));
 109 }