Collision Avoidance Maneuver design 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).
+3
-2
+3
-2
test/interop/gmat/test.ml
+3
-2
test/interop/gmat/test.ml
···
15
15
| Error e -> Alcotest.failf "parse error: %a" Odm.pp_error e
16
16
17
17
let vec3_norm v = Float.sqrt ((v.Odm.x *. v.x) +. (v.y *. v.y) +. (v.z *. v.z))
18
+
18
19
let test_two_segments () =
19
20
let oem = parse_oem "tangential_burn.oem" in
20
21
let segs = Odm.segments oem in
···
33
34
let first_post = post.(0) in
34
35
Alcotest.(check string)
35
36
"same epoch at burn boundary" last_pre.epoch first_post.epoch;
36
-
let dp = Vec3.distance (first_post.pos) (last_pre.pos) in
37
+
let dp = Vec3.distance first_post.pos last_pre.pos in
37
38
Alcotest.(check bool) "position unchanged at burn" true (dp < 0.001);
38
-
let dv = Vec3.distance (first_post.vel) (last_pre.vel) in
39
+
let dv = Vec3.distance first_post.vel last_pre.vel in
39
40
Alcotest.(check bool) "delta-v ~0.1 km/s" true (dv > 0.09 && dv < 0.11)
40
41
41
42
let test_orbit_raised () =