10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-13 09:34:02 +01:00
quantum_package/ocaml/test_point3d.ml

16 lines
474 B
OCaml

let test_point3d_1 () =
let input = "7.4950000 -0.1499810 0.5085570" in
let p3d = Point3d.of_string Point3d.Angstrom input in
print_endline(Point3d.to_string p3d);
let p3d = Point3d.of_string Point3d.Bohr input in
print_endline (Point3d.to_string p3d)
;;
let test_point3d () =
let p1 = Point3d.of_string Point3d.Bohr "1. 2. 3."
and p2 = Point3d.of_string Point3d.Bohr "-2. 1. 1.5" in
Printf.printf "%f\n" (Point3d.distance p1 p2)
;;
test_point3d_1 ();