/
norad_in.h
88 lines (74 loc) · 2.96 KB
/
norad_in.h
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
/* Copyright (C) 2018, Project Pluto. See LICENSE. */
#ifndef NORAD_IN_H
#define NORAD_IN_H
/* Common "internal" arguments between deep-space functions; users of */
/* the satellite routines shouldn't need to bother with any of this */
typedef struct
{
double
/* Common between SGP4 and SDP4: */
aodp, cosio, sinio, omgdot, xmdot, xnodot, xnodp,
/* Used by dpinit part of Deep() */
eosq, betao, cosio2, sing, cosg, betao2,
/* Used by dpsec and dpper parts of Deep() */
xll, omgadf, xnode, em, xinc, xn, t,
/* 'd####' secular coeffs for 12-hour, e>.5 orbits: */
d2201, d2211, d3210, d3222, d4410, d4422, d5220, d5232, d5421, d5433,
/* formerly static to Deep( ), but more logically part of this struct: */
atime, del1, del2, del3, e3, ee2, omegaq, pe, pgh, ph, pinc, pl, preep,
savtsn, se2, se3, sgh2, sgh3, sgh4, sh2, sh3, si2, si3, sl2, sl3,
sl4, sse, ssg, ssh, ssi, ssl, thgr, xfact, xgh2, xgh3, xgh4, xh2,
xh3, xi2, xi3, xl2, xl3, xl4, xlamo, xli, xni, xnq,
zmol, zmos;
/* Epoch offsets, described by Rob Matson, added by BJG, */
/* then commented out; I don't think they really ought to */
/* be used... */
#ifdef RETAIN_PERTURBATION_VALUES_AT_EPOCH
double pe0, pinc0, pl0, pgh0, ph0;
int solar_lunar_init_flag;
#endif
int resonance_flag, synchronous_flag;
} deep_arg_t;
double FMod2p( const double x);
void Deep_dpinit( const tle_t *tle, deep_arg_t *deep_arg);
void Deep_dpsec( const tle_t *tle, deep_arg_t *deep_arg);
void Deep_dpper( const tle_t *tle, deep_arg_t *deep_arg);
int sxpx_posn_vel( const double xnode, const double a, const double e,
const double cosio, const double sinio,
const double xincl, const double omega,
const double xl, double *pos, double *vel);
typedef struct
{
double coef, coef1, tsi, s4, unused_a3ovk2, eta;
} init_t;
void sxpx_common_init( double *params, const tle_t *tle,
init_t *init, deep_arg_t *deep_arg);
/* Table of constant values */
#define pi 3.141592653589793238462643383279502884197
#define twopi (pi*2.)
#define e6a 1.0E-6
#define two_thirds (2. / 3.)
#define xj3 -2.53881E-6
#define minus_xj3 2.53881E-6
#define earth_radius_in_km 6378.135
#ifndef minutes_per_day
#define minutes_per_day 1440.
#endif
#define ae 1.0
#define xj2 1.082616e-3
#define ck2 (.5 * xj2 * ae * ae)
/* xke^2 = earth GM, in (earth radii)^3/minutes^2. */
#ifdef OLD_CONSTANTS
#define ck4 6.209887E-7
#define s 1.012229
#define qoms2t 1.880279E-09
#define xke 7.43669161E-2
#else
#define xj4 (-1.65597e-6)
#define ck4 (-.375 * xj4 * ae * ae * ae * ae)
#define s_const (ae * (1. + 78. / earth_radius_in_km))
#define qoms2t 1.880279159015270643865e-9
#define xke 0.0743669161331734132
#endif
#define a3ovk2 (minus_xj3/ck2*ae*ae*ae)
#endif /* #ifndef NORAD_IN_H */