Collision Avoidance Maneuver design for conjunction assessment
ocaml-cam: reflow cam.mli plan_burn example after dune fmt
+2
-2
+2
-2
lib/cam.mli
+2
-2
lib/cam.mli
···
8
8
let plan_burn (cdm : Cdm.t) =
9
9
match Cam.avoid cdm ~dt:21600.0 with
10
10
| Some result ->
11
-
Printf.printf "Burn %.2f m/s, Pc drops from %e to %e\n"
12
-
result.delta_v result.pc_before result.pc_after
11
+
Printf.printf "Burn %.2f m/s, Pc drops from %e to %e\n" result.delta_v
12
+
result.pc_before result.pc_after
13
13
| None -> Printf.printf "Cannot reduce Pc below threshold\n"
14
14
]}
15
15