Astrodynamics coordinate frame transforms
Add 8 new CCSDS/RFC protocol packages
- ocaml-rice: CCSDS 121.0-B lossless compression (Rice/Golomb)
- ocaml-udpcl: RFC 7122 UDP convergence layer for Bundle Protocol
- ocaml-erasure: CCSDS 131.5-B erasure correcting codes (GF(2^8))
- ocaml-short-ldpc: CCSDS 131.4-B short block-length LDPC
- ocaml-opm: CCSDS 502.0-B Orbit Parameter Message (KVN)
- ocaml-aem: CCSDS 504.0-B Attitude Ephemeris Message (KVN)
- ocaml-tdm: CCSDS 503.0-B Tracking Data Message (KVN)
- ocaml-rdm: CCSDS 508.1-B Re-entry Data Message (KVN)
+109
-108
+109
-108
lib/coordinate.ml
+109
-108
lib/coordinate.ml
···
132
132
in
133
133
(* Full 106 terms: nl, nlp, nf, nd, nom, sp (0.1mas), spt, ce, cet.
134
134
Source: ERFA/SOFA nut80.c (Seidelmann 1982, Table 1). *)
135
-
let terms = [|
136
-
(0,0,0,0,1, -171996., -174.2, 92025., 8.9);
137
-
(0,0,0,0,2, 2062., 0.2, -895., 0.5);
138
-
(-2,0,2,0,1, 46., 0., -24., 0.);
139
-
(2,0,-2,0,0, 11., 0., 0., 0.);
140
-
(-2,0,2,0,2, -3., 0., 1., 0.);
141
-
(1,-1,0,-1,0, -3., 0., 0., 0.);
142
-
(0,-2,2,-2,1, -2., 0., 1., 0.);
143
-
(2,0,-2,0,1, 1., 0., 0., 0.);
144
-
(0,0,2,-2,2, -13187., -1.6, 5736., -3.1);
145
-
(0,1,0,0,0, 1426., -3.4, 54., -0.1);
146
-
(0,1,2,-2,2, -517., 1.2, 224., -0.6);
147
-
(0,-1,2,-2,2, 217., -0.5, -95., 0.3);
148
-
(0,0,2,-2,1, 129., 0.1, -70., 0.);
149
-
(2,0,0,-2,0, 48., 0., 1., 0.);
150
-
(0,0,2,-2,0, -22., 0., 0., 0.);
151
-
(0,2,0,0,0, 17., -0.1, 0., 0.);
152
-
(0,1,0,0,1, -15., 0., 9., 0.);
153
-
(0,2,2,-2,2, -16., 0.1, 7., 0.);
154
-
(0,-1,0,0,1, -12., 0., 6., 0.);
155
-
(-2,0,0,2,1, -6., 0., 3., 0.);
156
-
(0,-1,2,-2,1, -5., 0., 3., 0.);
157
-
(2,0,0,-2,1, 4., 0., -2., 0.);
158
-
(0,1,2,-2,1, 4., 0., -2., 0.);
159
-
(1,0,0,-1,0, -4., 0., 0., 0.);
160
-
(2,1,0,-2,0, 1., 0., 0., 0.);
161
-
(0,0,-2,2,1, 1., 0., 0., 0.);
162
-
(0,1,-2,2,0, -1., 0., 0., 0.);
163
-
(0,1,0,0,2, 1., 0., 0., 0.);
164
-
(-1,0,0,1,1, 1., 0., 0., 0.);
165
-
(0,1,2,-2,0, -1., 0., 0., 0.);
166
-
(0,0,2,0,2, -2274., -0.2, 977., -0.5);
167
-
(1,0,0,0,0, 712., 0.1, -7., 0.);
168
-
(0,0,2,0,1, -386., -0.4, 200., 0.);
169
-
(1,0,2,0,2, -301., 0., 129., -0.1);
170
-
(1,0,0,-2,0, -158., 0., -1., 0.);
171
-
(-1,0,2,0,2, 123., 0., -53., 0.);
172
-
(0,0,0,2,0, 63., 0., -2., 0.);
173
-
(1,0,0,0,1, 63., 0.1, -33., 0.);
174
-
(-1,0,0,0,1, -58., -0.1, 32., 0.);
175
-
(-1,0,2,2,2, -59., 0., 26., 0.);
176
-
(1,0,2,0,1, -51., 0., 27., 0.);
177
-
(0,0,2,2,2, -38., 0., 16., 0.);
178
-
(2,0,0,0,0, 29., 0., -1., 0.);
179
-
(1,0,2,-2,2, 29., 0., -12., 0.);
180
-
(2,0,2,0,2, -31., 0., 13., 0.);
181
-
(0,0,2,0,0, 26., 0., -1., 0.);
182
-
(-1,0,2,0,1, 21., 0., -10., 0.);
183
-
(-1,0,0,2,1, 16., 0., -8., 0.);
184
-
(1,0,0,-2,1, -13., 0., 7., 0.);
185
-
(-1,0,2,2,1, -10., 0., 5., 0.);
186
-
(1,1,0,-2,0, -7., 0., 0., 0.);
187
-
(0,1,2,0,2, 7., 0., -3., 0.);
188
-
(0,-1,2,0,2, -7., 0., 3., 0.);
189
-
(1,0,2,2,2, -8., 0., 3., 0.);
190
-
(1,0,0,2,0, 6., 0., 0., 0.);
191
-
(2,0,2,-2,2, 6., 0., -3., 0.);
192
-
(0,0,0,2,1, -6., 0., 3., 0.);
193
-
(0,0,2,2,1, -7., 0., 3., 0.);
194
-
(1,0,2,-2,1, 6., 0., -3., 0.);
195
-
(0,0,0,-2,1, -5., 0., 3., 0.);
196
-
(1,-1,0,0,0, 5., 0., 0., 0.);
197
-
(2,0,2,0,1, -5., 0., 3., 0.);
198
-
(0,1,0,-2,0, -4., 0., 0., 0.);
199
-
(1,0,-2,0,0, 4., 0., 0., 0.);
200
-
(0,0,0,1,0, -4., 0., 0., 0.);
201
-
(1,1,0,0,0, -3., 0., 0., 0.);
202
-
(1,0,2,0,0, 3., 0., 0., 0.);
203
-
(1,-1,2,0,2, -3., 0., 1., 0.);
204
-
(-1,-1,2,2,2, -3., 0., 1., 0.);
205
-
(-2,0,0,0,1, -2., 0., 1., 0.);
206
-
(3,0,2,0,2, -3., 0., 1., 0.);
207
-
(0,-1,2,2,2, -3., 0., 1., 0.);
208
-
(1,1,2,0,2, 2., 0., -1., 0.);
209
-
(-1,0,2,-2,1, -2., 0., 1., 0.);
210
-
(2,0,0,0,1, 2., 0., -1., 0.);
211
-
(1,0,0,0,2, -2., 0., 1., 0.);
212
-
(3,0,0,0,0, 2., 0., 0., 0.);
213
-
(0,0,2,1,2, 2., 0., -1., 0.);
214
-
(-1,0,0,0,2, 1., 0., -1., 0.);
215
-
(1,0,0,-4,0, -1., 0., 0., 0.);
216
-
(-2,0,2,2,2, 1., 0., -1., 0.);
217
-
(-1,0,2,4,2, -2., 0., 1., 0.);
218
-
(2,0,0,-4,0, -1., 0., 0., 0.);
219
-
(1,1,2,-2,2, 1., 0., -1., 0.);
220
-
(1,0,2,2,1, -1., 0., 1., 0.);
221
-
(-2,0,2,4,2, -1., 0., 1., 0.);
222
-
(-1,0,4,0,2, 1., 0., 0., 0.);
223
-
(1,-1,0,-2,0, 1., 0., 0., 0.);
224
-
(2,0,2,-2,1, 1., 0., -1., 0.);
225
-
(2,0,2,2,2, -1., 0., 0., 0.);
226
-
(1,0,0,2,1, -1., 0., 0., 0.);
227
-
(0,0,4,-2,2, 1., 0., 0., 0.);
228
-
(3,0,2,-2,2, 1., 0., 0., 0.);
229
-
(1,0,2,-2,0, -1., 0., 0., 0.);
230
-
(0,1,2,0,1, 1., 0., 0., 0.);
231
-
(-1,-1,0,2,1, 1., 0., 0., 0.);
232
-
(0,0,-2,0,1, -1., 0., 0., 0.);
233
-
(0,0,2,-1,2, -1., 0., 0., 0.);
234
-
(0,1,0,2,0, -1., 0., 0., 0.);
235
-
(1,0,-2,-2,0, -1., 0., 0., 0.);
236
-
(0,-1,2,0,1, -1., 0., 0., 0.);
237
-
(1,1,0,-2,1, -1., 0., 0., 0.);
238
-
(1,0,-2,2,0, -1., 0., 0., 0.);
239
-
(2,0,0,2,0, 1., 0., 0., 0.);
240
-
(0,0,2,4,2, -1., 0., 0., 0.);
241
-
(0,1,0,1,0, 1., 0., 0., 0.);
242
-
|]
135
+
let terms =
136
+
[|
137
+
(0, 0, 0, 0, 1, -171996., -174.2, 92025., 8.9);
138
+
(0, 0, 0, 0, 2, 2062., 0.2, -895., 0.5);
139
+
(-2, 0, 2, 0, 1, 46., 0., -24., 0.);
140
+
(2, 0, -2, 0, 0, 11., 0., 0., 0.);
141
+
(-2, 0, 2, 0, 2, -3., 0., 1., 0.);
142
+
(1, -1, 0, -1, 0, -3., 0., 0., 0.);
143
+
(0, -2, 2, -2, 1, -2., 0., 1., 0.);
144
+
(2, 0, -2, 0, 1, 1., 0., 0., 0.);
145
+
(0, 0, 2, -2, 2, -13187., -1.6, 5736., -3.1);
146
+
(0, 1, 0, 0, 0, 1426., -3.4, 54., -0.1);
147
+
(0, 1, 2, -2, 2, -517., 1.2, 224., -0.6);
148
+
(0, -1, 2, -2, 2, 217., -0.5, -95., 0.3);
149
+
(0, 0, 2, -2, 1, 129., 0.1, -70., 0.);
150
+
(2, 0, 0, -2, 0, 48., 0., 1., 0.);
151
+
(0, 0, 2, -2, 0, -22., 0., 0., 0.);
152
+
(0, 2, 0, 0, 0, 17., -0.1, 0., 0.);
153
+
(0, 1, 0, 0, 1, -15., 0., 9., 0.);
154
+
(0, 2, 2, -2, 2, -16., 0.1, 7., 0.);
155
+
(0, -1, 0, 0, 1, -12., 0., 6., 0.);
156
+
(-2, 0, 0, 2, 1, -6., 0., 3., 0.);
157
+
(0, -1, 2, -2, 1, -5., 0., 3., 0.);
158
+
(2, 0, 0, -2, 1, 4., 0., -2., 0.);
159
+
(0, 1, 2, -2, 1, 4., 0., -2., 0.);
160
+
(1, 0, 0, -1, 0, -4., 0., 0., 0.);
161
+
(2, 1, 0, -2, 0, 1., 0., 0., 0.);
162
+
(0, 0, -2, 2, 1, 1., 0., 0., 0.);
163
+
(0, 1, -2, 2, 0, -1., 0., 0., 0.);
164
+
(0, 1, 0, 0, 2, 1., 0., 0., 0.);
165
+
(-1, 0, 0, 1, 1, 1., 0., 0., 0.);
166
+
(0, 1, 2, -2, 0, -1., 0., 0., 0.);
167
+
(0, 0, 2, 0, 2, -2274., -0.2, 977., -0.5);
168
+
(1, 0, 0, 0, 0, 712., 0.1, -7., 0.);
169
+
(0, 0, 2, 0, 1, -386., -0.4, 200., 0.);
170
+
(1, 0, 2, 0, 2, -301., 0., 129., -0.1);
171
+
(1, 0, 0, -2, 0, -158., 0., -1., 0.);
172
+
(-1, 0, 2, 0, 2, 123., 0., -53., 0.);
173
+
(0, 0, 0, 2, 0, 63., 0., -2., 0.);
174
+
(1, 0, 0, 0, 1, 63., 0.1, -33., 0.);
175
+
(-1, 0, 0, 0, 1, -58., -0.1, 32., 0.);
176
+
(-1, 0, 2, 2, 2, -59., 0., 26., 0.);
177
+
(1, 0, 2, 0, 1, -51., 0., 27., 0.);
178
+
(0, 0, 2, 2, 2, -38., 0., 16., 0.);
179
+
(2, 0, 0, 0, 0, 29., 0., -1., 0.);
180
+
(1, 0, 2, -2, 2, 29., 0., -12., 0.);
181
+
(2, 0, 2, 0, 2, -31., 0., 13., 0.);
182
+
(0, 0, 2, 0, 0, 26., 0., -1., 0.);
183
+
(-1, 0, 2, 0, 1, 21., 0., -10., 0.);
184
+
(-1, 0, 0, 2, 1, 16., 0., -8., 0.);
185
+
(1, 0, 0, -2, 1, -13., 0., 7., 0.);
186
+
(-1, 0, 2, 2, 1, -10., 0., 5., 0.);
187
+
(1, 1, 0, -2, 0, -7., 0., 0., 0.);
188
+
(0, 1, 2, 0, 2, 7., 0., -3., 0.);
189
+
(0, -1, 2, 0, 2, -7., 0., 3., 0.);
190
+
(1, 0, 2, 2, 2, -8., 0., 3., 0.);
191
+
(1, 0, 0, 2, 0, 6., 0., 0., 0.);
192
+
(2, 0, 2, -2, 2, 6., 0., -3., 0.);
193
+
(0, 0, 0, 2, 1, -6., 0., 3., 0.);
194
+
(0, 0, 2, 2, 1, -7., 0., 3., 0.);
195
+
(1, 0, 2, -2, 1, 6., 0., -3., 0.);
196
+
(0, 0, 0, -2, 1, -5., 0., 3., 0.);
197
+
(1, -1, 0, 0, 0, 5., 0., 0., 0.);
198
+
(2, 0, 2, 0, 1, -5., 0., 3., 0.);
199
+
(0, 1, 0, -2, 0, -4., 0., 0., 0.);
200
+
(1, 0, -2, 0, 0, 4., 0., 0., 0.);
201
+
(0, 0, 0, 1, 0, -4., 0., 0., 0.);
202
+
(1, 1, 0, 0, 0, -3., 0., 0., 0.);
203
+
(1, 0, 2, 0, 0, 3., 0., 0., 0.);
204
+
(1, -1, 2, 0, 2, -3., 0., 1., 0.);
205
+
(-1, -1, 2, 2, 2, -3., 0., 1., 0.);
206
+
(-2, 0, 0, 0, 1, -2., 0., 1., 0.);
207
+
(3, 0, 2, 0, 2, -3., 0., 1., 0.);
208
+
(0, -1, 2, 2, 2, -3., 0., 1., 0.);
209
+
(1, 1, 2, 0, 2, 2., 0., -1., 0.);
210
+
(-1, 0, 2, -2, 1, -2., 0., 1., 0.);
211
+
(2, 0, 0, 0, 1, 2., 0., -1., 0.);
212
+
(1, 0, 0, 0, 2, -2., 0., 1., 0.);
213
+
(3, 0, 0, 0, 0, 2., 0., 0., 0.);
214
+
(0, 0, 2, 1, 2, 2., 0., -1., 0.);
215
+
(-1, 0, 0, 0, 2, 1., 0., -1., 0.);
216
+
(1, 0, 0, -4, 0, -1., 0., 0., 0.);
217
+
(-2, 0, 2, 2, 2, 1., 0., -1., 0.);
218
+
(-1, 0, 2, 4, 2, -2., 0., 1., 0.);
219
+
(2, 0, 0, -4, 0, -1., 0., 0., 0.);
220
+
(1, 1, 2, -2, 2, 1., 0., -1., 0.);
221
+
(1, 0, 2, 2, 1, -1., 0., 1., 0.);
222
+
(-2, 0, 2, 4, 2, -1., 0., 1., 0.);
223
+
(-1, 0, 4, 0, 2, 1., 0., 0., 0.);
224
+
(1, -1, 0, -2, 0, 1., 0., 0., 0.);
225
+
(2, 0, 2, -2, 1, 1., 0., -1., 0.);
226
+
(2, 0, 2, 2, 2, -1., 0., 0., 0.);
227
+
(1, 0, 0, 2, 1, -1., 0., 0., 0.);
228
+
(0, 0, 4, -2, 2, 1., 0., 0., 0.);
229
+
(3, 0, 2, -2, 2, 1., 0., 0., 0.);
230
+
(1, 0, 2, -2, 0, -1., 0., 0., 0.);
231
+
(0, 1, 2, 0, 1, 1., 0., 0., 0.);
232
+
(-1, -1, 0, 2, 1, 1., 0., 0., 0.);
233
+
(0, 0, -2, 0, 1, -1., 0., 0., 0.);
234
+
(0, 0, 2, -1, 2, -1., 0., 0., 0.);
235
+
(0, 1, 0, 2, 0, -1., 0., 0., 0.);
236
+
(1, 0, -2, -2, 0, -1., 0., 0., 0.);
237
+
(0, -1, 2, 0, 1, -1., 0., 0., 0.);
238
+
(1, 1, 0, -2, 1, -1., 0., 0., 0.);
239
+
(1, 0, -2, 2, 0, -1., 0., 0., 0.);
240
+
(2, 0, 0, 2, 0, 1., 0., 0., 0.);
241
+
(0, 0, 2, 4, 2, -1., 0., 0., 0.);
242
+
(0, 1, 0, 1, 0, 1., 0., 0., 0.);
243
+
|]
243
244
in
244
245
let dpsi = ref 0.0 in
245
246
let deps = ref 0.0 in