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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
/**
* @file
*
* @date Created on Jan 9, 2025
* @author Attila Kovacs
*
* Example file for using the SuperNOVAS C/C++ library for determining positions for
* Solary-system sources, with the NAIF CSPICE toolkit providing access to ephemeris
* files.
*
* You will need access to the NAIF CSPICE library (unversioned `libcspice.so` or else
* `libcspice.a`) and C headers (under `cspice/`), and the SuperNOVAS `libsolsys-cspice.so`
* (or `libsolsys-cspice.a`) module.
*
* To compile CSPICE as a shared (.so) library, you may want to check out the GitHub
* repository:
*
* - https://github.com/Smithsonian/cspice-sharedlib
*
* Link with:
*
* ```
* -lsupernovas -lsolsys-cspice -lcspice
* ```
*/
#define _POSIX_C_SOURCE 199309L ///< for clock_gettime()
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <novas.h> ///< SuperNOVAS functions and definitions
#include <novas-cspice.h> ///< CSPICE adapter functions to SuperNOVAS
// Below are some Earth orientation values. Here we define them as constants, but they may
// of course be variables. They should be set to the appropriate values for the time
// of observation based on the IERS Bulletins...
#define LEAP_SECONDS 37 ///< [s] current leap seconds from IERS Bulletin C
#define DUT1 0.114 ///< [s] current UT1 - UTC time difference from IERS Bulletin A
#define POLAR_DX 230.0 ///< [mas] Earth polar offset x, e.g. from IERS Bulletin A.
#define POLAR_DY -62.0 ///< [mas] Earth polar offset y, e.g. from IERS Bulletin A.
int main(int argc, char *argv[]) {
// Program Options -------------------------------------------------------->
const char *datafile = "/path/to/de440s.bsp"; // // Ephemeris file to use
// SuperNOVAS variables used for the calculations ------------------------->
object source; // observed source
observer obs; // observer location
novas_timespec obs_time; // astrometric time of observation
novas_frame obs_frame; // observing frame defined for observing time and location
enum novas_accuracy accuracy; // NOVAS_FULL_ACCURACY or NOVAS_REDUCED_ACCURACY
sky_pos apparent; // calculated precise observed (apparent) position of source
// Calculated quantities ------------------------------------------------->
double az, el; // calculated azimuth and elevation at observing site
// Command line argument can define the path where the ephemeris data is
if(argc > 1)
datafile = argv[1];
// We'll print debugging messages and error traces...
novas_debug(NOVAS_DEBUG_ON);
// -------------------------------------------------------------------------
// We'll use the NAIF CSPICE Toolkit to provide ephemeris data
// Open one or more ephemeris files to use...'
// E.g. the DE440 (short-term) ephemeris data from JPL.
if(cspice_add_kernel(datafile) != 0) {
fprintf(stderr, "ERROR! could not open ephemeris data\n");
return 1;
}
// ... You can open multiple NAIF kernels
// E.g. add Jovian satellites...
// cspice_add_kernel("path/to/jup365.bsp");
// Now we can use the loaded ephemeris files for Solar-system objects.
// (major planets and minor bodies alike).
novas_use_cspice();
// And, since we have an ephemeris provider for major planets, we can unlock
// the ultimate accuracy of SuperNOVAS.
accuracy = NOVAS_FULL_ACCURACY; // sub-uas precision
// -------------------------------------------------------------------------
// Define a Solar-system source
// To define a major planet (or Sun, Moon, SSB, or EMB):
if(make_planet(NOVAS_MARS, &source) != 0) {
fprintf(stderr, "ERROR! defining planet.\n");
return 1;
}
// ... Or, to define a minor body, such as an asteroid or satellite
// with a name and NAIF ID.
/*
if(make_ephem_object("Io", 501, &source) != 0) {
fprintf(stderr, "ERROR! defining ephemeris body.\n");
return 1;
}
*/
// -------------------------------------------------------------------------
// Define observer somewhere on Earth (we can also define observers in Earth
// or Sun orbit, at the geocenter or at the Solary-system barycenter...)
// Specify the location we are observing from
// 50.7374 deg N, 7.0982 deg E, 60m elevation (GPS / WGS84)
// (You can set local weather parameters after...)
if(make_gps_observer(50.7374, 7.0982, 60.0, &obs) != 0) {
fprintf(stderr, "ERROR! defining Earth-based observer location.\n");
return 1;
}
// -------------------------------------------------------------------------
// Set the astrometric time of observation...
// Set the time of observation to the current UTC-based UNIX time
if(novas_set_current_time(LEAP_SECONDS, DUT1, &obs_time) != 0) {
fprintf(stderr, "ERROR! failed to set time of observation.\n");
return 1;
}
// ... Or you could set a time explicily in any known timescale.
/*
// Let's set a TDB-based time for the start of the J2000 epoch exactly...
if(novas_set_time(NOVAS_TDB, NOVAS_JD_J2000, 32, 0.0, &obs_time) != 0) {
fprintf(stderr, "ERROR! failed to set time of observation.\n");
return 1;
}
*/
// -------------------------------------------------------------------------
// Initialize the observing frame with the given observing and Earth
// orientation patameters.
//
if(novas_make_frame(accuracy, &obs, &obs_time, POLAR_DX, POLAR_DY, &obs_frame) != 0) {
fprintf(stderr, "ERROR! failed to define observing frame.\n");
return 1;
}
// -------------------------------------------------------------------------
// Calculate the precise apparent position (e.g. in CIRS).
if(novas_sky_pos(&source, &obs_frame, NOVAS_CIRS, &apparent) != 0) {
fprintf(stderr, "ERROR! failed to calculate apparent position.\n");
return 1;
}
// Let's print the apparent position in CIRS
// (Note, CIRS R.A. is relative to CIO, not the true equinox of date.)
printf(" RA = %.9f h, Dec = %.9f deg, rad_vel = %.6f km/s\n", apparent.ra, apparent.dec, apparent.rv);
// -------------------------------------------------------------------------
// Convert the apparent position in CIRS on sky to horizontal coordinates
// We'll use a standard (fixed) atmospheric model to estimate an optical refraction
// (You might use other refraction models, or NULL to ignore refraction corrections)
if(novas_app_to_hor(&obs_frame, NOVAS_CIRS, apparent.ra, apparent.dec, novas_standard_refraction, &az, &el) != 0) {
fprintf(stderr, "ERROR! failed to calculate azimuth / elevation.\n");
return 1;
}
// Let's print the calculated azimuth and elevation
printf(" Az = %.6f deg, El = %.6f deg\n", az, el);
return 0;
}
|
