quantum_package/ocaml/test_point3d.ml

let test_point3d_1 () =
  let input = "7.4950000 -0.1499810    0.5085570" in
  let p3d = Point3d.of_string input in
  print_string (Point3d.to_string p3d)
;;

let test_point3d () =
  let p1 = Point3d.of_string "1. 2. 3." 
  and p2 = Point3d.of_string "-2. 1. 1.5" in
  Printf.printf "%f\n" (Point3d.distance p1 p2)
;;

test_point3d ();