mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-13 09:34:02 +01:00
16 lines
474 B
OCaml
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 ();
|