mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 05:51:46 +02:00
14 lines
336 B
OCaml
14 lines
336 B
OCaml
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 ();
|