File: dump_eph.cpp

package info (click to toggle)
pluto-jpl-eph 0.0~git20180228-1.1
  • links: PTS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 684 kB
  • sloc: cpp: 2,350; sh: 277; makefile: 131; perl: 64
file content (154 lines) | stat: -rw-r--r-- 5,752 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
/* dump_eph.cpp: dumps header data from a JPL ephemeris file

Copyright (C) 2011, Project Pluto

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.    */

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <math.h>
#include "jpleph.h"

#define AU_IN_KM 1.49597870691e+8

/* A little test program to dump the header data from a JPL ephemeris file.
   Also,  if run in the form

dump_eph ephem_filename start_jd step n_steps

   then ephemerides will be shown for eleven objects (nine planets,  the
moon,  and the solar system barycenter) for 'n_steps' dates,  starting on
'start_jd',  for every 'step' days.   */

int main( const int argc, const char **argv)
{
   void *p;

   if( argc < 2)
      {
      printf( "dump_eph requires the name of a JPL ephemeris file as a\n");
      printf( "command-line argument.  Add another argument,  and the\n");
      printf( "ephemeris constants will be dumped.\n");
      return( -1);
      }

   p = jpl_init_ephemeris( argv[1], NULL, NULL);

   if( !p)
      {
      printf( "JPL data not loaded from '%s'\n", argv[1]);
      printf( "Error code: %d\n", jpl_init_error_code( ));
      return( -1);
      }
   else
      {
      const double start_jd = jpl_get_double( p, JPL_EPHEM_START_JD);
      const double end_jd = jpl_get_double( p, JPL_EPHEM_END_JD);
      const double j2000 = 2451545.;
      const int n_constants = (int)jpl_get_long( p, JPL_EPHEM_N_CONSTANTS);
      int i, j;

      printf( "Ephemeris runs from JD %.3f to %.3f (years %.3f to %.3f)\n",
                  start_jd, end_jd,
                  2000. + (start_jd - j2000) / 365.25,
                  2000. + (end_jd - j2000) / 365.25);
      printf( "Stepsize is %f days\n", jpl_get_double( p, JPL_EPHEM_STEP));
      printf( "1 AU = %f km\n", jpl_get_double( p, JPL_EPHEM_AU_IN_KM));
      printf( "Earth/Moon = %f\n", jpl_get_double( p, JPL_EPHEM_EARTH_MOON_RATIO));
      printf( "Ephemeris version DE%ld\n", jpl_get_long( p, JPL_EPHEM_EPHEMERIS_VERSION));
      printf( "Kernel size: %ld\n", jpl_get_long( p, JPL_EPHEM_KERNEL_SIZE));
      printf( "Record size: %ld\n", jpl_get_long( p, JPL_EPHEM_KERNEL_RECORD_SIZE));
      printf( "N coeffs: %ld\n", jpl_get_long( p, JPL_EPHEM_KERNEL_NCOEFF));
      printf( "Byte swap: %ld\n", jpl_get_long( p, JPL_EPHEM_KERNEL_SWAP_BYTES));
      printf( "   0    1    2    3    4    5    6    7    8    9   10   11   12   13   14\n");
      printf( "  Mer  Ven  EMB  Mar  Jup  Sat  Ura  Nep  Plu  Moo  Sun  Nut  Lib LuMa  TT-TDB\n");
      for( j = 0; j < 3; j++)
         {
         for( i = 0; i < 15; i++)
            printf( "%5ld", jpl_get_long( p,
                        JPL_EPHEM_IPT_ARRAY + (i * 3 + j) * sizeof( int32_t)));
         printf( "\n");
         }
      printf( "%d constants\n", n_constants);
      if( argc > 2)        /* dump constants,  too */
         {

         for( i = 0; i < n_constants; i++)
            {           /* show constants in two columns: */
            const int idx = i / 2 + (i & 1) * (n_constants + 1) / 2;
            char constant_name[7];
            const double ephem_constant = jpl_get_constant( idx, p, constant_name);

            printf( "%.6s  %24.16E%s", constant_name, ephem_constant,
                        (i & 1) ? "\n" : "   ");
            }
         printf( "\n");
         }
      if( argc > 4)
         {
         double jd = atof( argv[2]);
         const double step = atof( argv[3]);
         int n_steps = atoi( argv[4]);

         while( n_steps--)
            {
            int i;
            double state_vect[6];

            printf( "JD %f\n", jd);
            for( i = 0; i < 11; i++)
               {
               const char *format_str;
               static const char *object_names[] = {
                     "SSBar", "Mercu", "Venus", "EMB  ", "Mars ",
                     "Jupit", "Satur", "Uranu", "Neptu", "Pluto",
                     "Moon " };

               if( i == 10)       /* the moon */
                  {
                  jpl_pleph( p, jd, 3, 10, state_vect, 1);
                  state_vect[0] *= AU_IN_KM;  /* cvt AU to kilometers */
                  state_vect[1] *= AU_IN_KM;
                  state_vect[2] *= AU_IN_KM;
                  format_str = "%22.12f %22.12f %22.12f\n";
                  }
               else
                  {
                  jpl_pleph( p, jd, (i ? i : 11), 12, state_vect, 1);
                  format_str = "%22.18f %22.18f %22.18f\n";
                  }
               printf( "%s ", object_names[i]);
               printf( format_str,
                          state_vect[0], state_vect[1], state_vect[2]);
               }
            for( i = 0; i < 3; i++)
               {
               static const char *text[3] = {
                  "Sun posn", "Sun vel ", "Sun acc " };
               double *tptr = jpl_get_pvsun( p) + i * 3;

               printf( "%s ", text[i]);
               printf( "%22.18f %22.18f %22.18f\n",
                        tptr[0], tptr[1], tptr[2]);
               }
            jd += step;
            }
         }
      jpl_close_ephemeris( p);
      }
   return( 0);
}