Collision probability computation for conjunction assessment
Merge ocaml-cltu + ocaml-ccsds-coding into ocaml-scc
Create a single package matching the CCSDS standard name
"Synchronization and Channel Coding" (131.0-B, 231.0-B):
Scc.Sync — CLTU/BCH, ASM markers, stream sync parsers
Scc.Coding — randomizer, RS interleaving, FEC presets
API: Scc.Sync.Cltu.encode, Scc.Coding.Randomizer.create, etc.
Remove ocaml-cltu, ocaml-ccsds-coding, ocaml-transport (superseded).
+4
-6
+4
-6
test/interop/gmat/test.ml
+4
-6
test/interop/gmat/test.ml
···
40
40
let min_dist = ref Float.infinity in
41
41
let min_epoch = ref "" in
42
42
for i = 0 to n - 1 do
43
-
let d = v_norm (v_sub (sv1.(i).Odm.pos) (sv2.(i).Odm.pos)) in
43
+
let d = v_norm (v_sub sv1.(i).Odm.pos sv2.(i).Odm.pos) in
44
44
if d < !min_dist then (
45
45
min_dist := d;
46
46
min_epoch := sv1.(i).epoch)
···
60
60
let min_i = ref 0 in
61
61
let min_dist = ref Float.infinity in
62
62
for i = 0 to n - 1 do
63
-
let d = v_norm (v_sub (sv1.(i).Odm.pos) (sv2.(i).Odm.pos)) in
63
+
let d = v_norm (v_sub sv1.(i).Odm.pos sv2.(i).Odm.pos) in
64
64
if d < !min_dist then (
65
65
min_dist := d;
66
66
min_i := i)
67
67
done;
68
-
let dv =
69
-
v_norm (v_sub (sv1.(!min_i).Odm.vel) (sv2.(!min_i).Odm.vel))
70
-
in
68
+
let dv = v_norm (v_sub sv1.(!min_i).Odm.vel sv2.(!min_i).Odm.vel) in
71
69
(* Crossing orbits at ~90 deg: relative velocity ~sqrt(2) * 7.5 ~= 10.6 km/s *)
72
70
Alcotest.(check bool) "high relative velocity" true (dv > 5.0);
73
71
Printf.printf " Relative velocity at TCA: %.3f km/s\n" dv
···
138
136
let n = min (Array.length sv1) (Array.length sv2) in
139
137
let min_dist = ref Float.infinity in
140
138
for i = 0 to n - 1 do
141
-
let d = v_norm (v_sub (sv1.(i).Odm.pos) (sv2.(i).Odm.pos)) in
139
+
let d = v_norm (v_sub sv1.(i).Odm.pos sv2.(i).Odm.pos) in
142
140
if d < !min_dist then min_dist := d
143
141
done;
144
142
Printf.printf " Miss distance: %.3f km\n" !min_dist;