 |
< AstronomicalAlgorithms.c | index | DateFromJulianDay.c >
AstronomicalAlgorithms.h#ifndef ASTRONOMICAL_ALGORITHMS_H #define ASTRONOMICAL_ALGORITHMS_H /****************************************************************************/ /* #define PAGE_007_TEST #define PAGE_008_TEST #define PAGE_009_TEST #define PAGE_013_TEST #define PAGE_017_TEST #define PAGE_018_TEST #define PAGE_019_TEST #define PAGE_020_TEST #define PAGE_021_TEST #define PAGE_024_TEST #define PAGE_061_TEST #define PAGE_062_TEST #define PAGE_063_TEST #define PAGE_064_TEST #define PAGE_065_TEST #define PAGE_066_TEST #define PAGE_067_TEST #define PAGE_082_TEST #define PAGE_165_TEST #define PAGE_169_TEST #define PAGE_353_TEST */ #define PAGE_384_TEST /****************************************************************************/ #define do_e (double) 2.71828182845904523536 /* p. 407 */ #define do_pi (double) 3.14159265358979323846 /* p. 407 */ #define DEGREES2RADIAN(x) ((double) x * (double) 0.017453292519943) /* p. 407 */ #define RADIAN2DEGREES(x) ((double) x * (double) 57.295779513082) /* p. 407 */ /****************************************************************************/ /* degrees, minutes, seconds to decimal degrees */ /* p009 */ #define DEGMINSEC2DECIMAL(sign, d, m, s) \ (((double) sign d) + (((double) sign m) / (double) 60) \ + (((double) sign s) / (double) 3600)) /* p008 */ #define RIGHTASC2DECIMAL(d, m, s) ((double) 15 * DEGMINSEC2DECIMAL(+, d, m, s)) /* p021 */ #define ROUND(x) \ ((double) x - floor((double) x) < (double) 0.5 ? floor(x) : ceil(x)) /****************************************************************************/ #define REDUCE360(x) \ (x >= 0 ? fmod(x, (double) 360) : (double) 360 + fmod(x, (double) 360)) /****************************************************************************/ /* geocentric rectangular coordinates of an observer */ /* p082 */ #define DO_EARTH_EQUATORIAL_RADIUS (double) 6378140 /* meters */ /*a*/ #define DO_EARTH_FLATTENING (double) ((double) 1 / (double) 298.257)/*f*/ /****************************************************************************/ #define DO_JULIAN_CENTURIES(x) \ (((double) x - (double) 2451545 ) / (double) 36525) /* p163 */ /****************************************************************************/ #define LO_DEFAULT_WORKSTRING_LENGTH 512 #define JULIAN 0 #define GREGORIAN 1 #define CHRISTIAN 1 /****************************************************************************/ #endif /* eod of file */ < AstronomicalAlgorithms.c | index | DateFromJulianDay.c >
|
